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

Question

Фебния

24 февраля, 11:35

+5

Ответы (1)

Знаешь ответ?

Наталя · Answer 1

Var a, s, i: integer;

begin

s:=0;

for i:=1 to 100 do begin

readln (a);

s:=s+a;

end;

writeln ('Сумма введённых чисел = ', s);

end.