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

Question

Мартирий

5 февраля, 19:32

+2

Ответы (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.