Составить программу, вычисляющую сумму квадратов всех чисел от 1 до 100. (В Pascal)

1

Ответы и объяснения

Лучший Ответ!
2012-03-10T02:55:02+00:00

var
i: integer;
s: real;

begin
s := 0;
for i := 1 to 100 do
s := s + i * i;
writeln(s:7:0);
end.