Alsazius
5 год назад
Составьте программу вычисления суммы натуральных чисел от 20 до 90 с использованием оператора while.
ОТВЕТЫ
Боршеватинов
Jun 29, 2019
Program n1;
var S,i: integer;
begin
i:=20;
S:=0;
while (ilt;=90) do
begin
S:=S+i;
i:=i+1;
end;
writeln(S);
end.
var S,i: integer;
begin
i:=20;
S:=0;
while (ilt;=90) do
begin
S:=S+i;
i:=i+1;
end;
writeln(S);
end.
Var i,s:integer;
Begin
i:=20;
s:=0;
While ilt;=90 do
Begin
s:=s+i;
i:=i+1;
End;
writeln(Сумма = ,s);
readln;
End.
Begin
i:=20;
s:=0;
While ilt;=90 do
Begin
s:=s+i;
i:=i+1;
End;
writeln(Сумма = ,s);
readln;
End.
258
Смежные вопросы:
