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