Составит программу нахождения суммы натуральных чисел от 1-100
Составит программу нахождения суммы натуральных чисел от 1-100
Гость
Ответ(ы) на вопрос:
Гостьvar
i, sum : integer;
begin
sum := 0;
for i := 1 to 100 do sum := sum + i;
writeln (sum);
end.
Не нашли ответ?
Похожие вопросы