Составьте программу вычисления суммы натуральных чисел от 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.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Похожие вопросы от пользователей