1) ввести квадраты натуральных чисел от 1 до заданного,вводимого с клавиатуры(считаем,...

Question

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

Answer 1

1)var a,s:integer;

begin

a:=1;

s:=1;

while sqr(a)

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)

begin

s:=s+sqr(a);

a:=a+1;

end;

writeln(s);

end.