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

Question

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

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

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

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.

Comments

а что значит uses?

---

Модуль.Можно его убрать

---

спс