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

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

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

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

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

Question

Васяк

5 февраля, 20:08

+5

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