Question

Вычеслить сумму 5 натуральных чесел с помощью программы for.​

Answer 1

Ответ:

program z1;

var i,s,a:integer;

begin

s:=0;

for i:=1 to 5 do

begin

write('Введите натуральное число: ');

readln(a);

s:=s+a

end;

writeln('Сумма 5 натуральных чесел: ',s)

end.

Объяснение:

В цикле: вводим 5 чисел и считаем их сумму

Выводим сумму на экран