Question

1) ввести квадраты натуральных чисел от 1 до заданного,вводимого с клавиатуры(считаем, что введённое число больше 1)
2) вести квадратов натуральных чисел от заданного вводимого с клавиатуры до 35( считаем, что введённое число меньше 35)
Паскаль
Пожалуйста, очень нужно

Answer 1

1)var a,s:integer;

begin

a:=1;

s:=1;

while sqr(a)<=1 do

begin

s:=s+sqr(a);

a:=a+1;

end;

writeln(s);

end.

2)var a,s:integer;

begin

a:=1;

s:=0;

while sqr(a)<=81 do

begin

s:=s+sqr(a);

a:=a+1;

end;

writeln(s);

end.