Ответы
Ответ дал:
0
var
i: integer;
s: longint;
begin
s := 0;
for i := 1 to 100 do
s := s + i * i;
writeln(s);
end.
i: integer;
s: longint;
begin
s := 0;
for i := 1 to 100 do
s := s + i * i;
writeln(s);
end.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад