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

Question

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

Answer 1

Program n1;
var S,i: integer;
begin
i:=20;
S:=0;
while (i<=90) do <br>begin
S:=S+i;
i:=i+1;
end;
writeln(S);
end.

Answer 2

Var i,s:integer;
Begin
    i:=20;
s:=0;
    While i<=90 do  <br>   Begin      
 s:=s+i;    
   i:=i+1;
     End;  
   writeln('Сумма = ',s);  
   readln;
End.