Question

составить программу вычисления суммы квадратов всех целых чисел от -20 до 30

Answer 1

var i,s:integer;

begin

s:=0;

for i:=-20 to 30 do

s:=s+i*i;

Writeln(s);

end.

 

 

Вопросы, ошибки, недочеты в ЛС

Answer 2

Var x,y:integer;
begin
for y:=-20 to 30
x:=x+sqr(y);
writeln(x);
end.