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

Question

Мануил

24 августа, 03:20

+1

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