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

Составьте программу вычисления суммы натуральные чисел от 20 до 99 с использованием оператора while
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы