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

Question

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

Answer 1

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