Ответы
Ответ дал:
0
var
i, sum:integer;
begin
For i:= 1 to 25 do
sum := sum + i;
Writeln(sum);
end.
Результат:
325
i, sum:integer;
begin
For i:= 1 to 25 do
sum := sum + i;
Writeln(sum);
end.
Результат:
325
Ответ дал:
0
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(range(1,25).Sum());
end.
//Версия 3.3, сборка 1611
begin
write(range(1,25).Sum());
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
8 лет назад
8 лет назад
8 лет назад