Question

Цикл "для". написать программу 1)найти сумму квадратов целых чисел от 1 до 100.

Answer 1

Var
  i, sum: longint;
 begin
  for i := 1 to 100 do sum := sum + sqr(i);
  write(sum);
end.

Answer 2

Var
s,i,n:integer;

begin
i:=100;
s:=0;
For n := 1 to i do
begin
s:=s+i*i;
i:=i-1;
end;
writeln('Сумма квадратов целых чисел от 1 до 100 равна ',s);
end.