Задачи Паскаль.

[Анна йцу]

Помогите решить задачи на Паскаль. Буду особо признательна, получив краткие объяснения решений.

1) С клавиатуры вводятся N целых чисел. Найти кол-во, сумму чисел принадлежащих [-1; 20].

2) Вычислить сумму квадратов заданного числа N.

3)Найти наименьшее натуральное число вида 2^k, значение которого больше наперед заданного числа а.

[Mad_Cat]

1)

k:=0;
s:=0;
for i:=1 to n do
begin
readln(a);
if (a<=20) and (a>=-1) then begin inc(k);s:=s+a;
end;
writeln(k:6,s:6:3);

2

s:=0;
for i:=1 to n do
s:=s+i*i;
writeln(s);

3

x:=1;
while x<=a do x:=x*2;
writeln(x);

[Poma][a]

Вычислить сумму квадратов заданного числа N.

Может где-то пропущено "ДО"?

[Serge_Bliznykov]

Сообщение от Poma][a

Вычислить сумму квадратов заданного числа N.

или пропущено слово "цифр":

Вычислить сумму квадратов цифр заданного числа N.

[Mad_Cat]

может быть пропущено слово делителей
Вычислить сумму квадратов делителей заданного числа N.

[Аватар]

Всё, ТС теперь не знает какую задачу делать. Хотя думаю он и до этого не знал

[Анна йцу]

Простите. Во 2-ом задании пропущено "цифр". Попробовала решить сама.

program abc2;
var n,s:integer;
begin
  readln(n);
  sum:=0;
  while n>0 do begin
     s:=s+sqr(n mod 10);
     n:=n div 10;
  end;
  writeln (s);
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

ну, отлично. только в одном месте ошиблись. Переменная у Вас называется не sum, а s:

program abc2;
var n,s:integer;
begin
  readln(n);
  s:=0;
  while n>0 do begin
     s:=s+sqr(n mod 10);
     n:=n div 10;
  end;
  writeln (s);
end.

а с пропущенным словом я угадал!!