Вадим
5 год назад
Составьте программу вычисления суммы натуральных чисел от 20 до 90 с использованием оператора while.
ОТВЕТЫ
Борислав
Oct 24, 2020
Var i,s:integer;
Begin
i:=20;
s:=0;
While i<=90 do
Begin
s:=s+i;
i:=i+1;
End;
writeln('Сумма = ',s);
readln;
End.
Begin
i:=20;
s:=0;
While i<=90 do
Begin
s:=s+i;
i:=i+1;
End;
writeln('Сумма = ',s);
readln;
End.
612
Смежные вопросы:
