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

Question

Артя

21 ноября, 11:50

+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.