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

Question

Палуня

17 августа, 06:23

+5

Ответы (1)

Знаете ответ на вопрос?

Валерий · Answer 1

Var i, s:integer;

Begin

i:=20; s:=0;

While i<=99 do

Begin

s:=s+i;

i:=i+1;

End;

writeln ('Сумма = ', s) ;

readln;

End.