Question

Составьте программу вычисления суммы натуральных чисел от 20 до 99 с использование оператора while

Answer 1

var  i, sum: integer;
begin
  sum := 0;
  i := 20;
  while i <= 99 do
  begin
    sum := sum + i;
    inc(i);
  end;
  writeln(sum);
end.