Вычислить сумму натуральных чисел не превосходящую заданное число а, while

0 голосов
28 просмотров

Вычислить сумму натуральных чисел не превосходящую заданное число а, while


Информатика (14 баллов) | 28 просмотров
Дан 1 ответ
0 голосов

Var
   A:integer;
   S:real;
Begin
S:=0;
Write('A = ');ReadLn(A);
While A>0 do
   Begin
   S:=S+A;
   A:=A-1
   End;
WriteLn('S = ',S);
End.

(6.6k баллов)