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