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

Question

Феофания

12 января, 21:44

+3

Ответы (2)

Знаете ответ?

Марин · Answer 1

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.

Любовь · Answer 2

Program n1;

var S, i: integer;

begin

i:=20;

S:=0;

while (i<=90) do

begin

S:=S+i;

i:=i+1;

end;

writeln (S) ;

end.