Вычислите сумму данных 100 натуральных чисел.

Входные данные

Вводятся 100 чисел, сумму которых необходимо посчитать.

Выходные данные

Программа должна вывести единственное число - полученную сумму.

Question

Декабриныч

30 декабря, 07:29

+3

Ответы (1)

Знаете ответ на вопрос?

Лиза · Answer 1

Program n;

uses crt;

var i, x, s:integer;

begin

s:=0;

for i:=1 to 100 do begin

readln (x) ;

s:=s+x;

end;

writeln (s) ;

end.