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