program z1;
var i,s,a:integer;
begin
s:=0;
for i:=1 to 5 do
write('Введите натуральное число: ');
readln(a);
s:=s+a
end;
writeln('Сумма 5 натуральных чесел: ',s)
end.
Объяснение:
В цикле: вводим 5 чисел и считаем их сумму
Выводим сумму на экран
Я не знаю что делать если я не знаю что делать
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 чисел и считаем их сумму
Выводим сумму на экран
Я не знаю что делать если я не знаю что делать