Информатика, вопрос задал колявасилевский , 7 лет назад

ввести с клавиатуры 6 чисел. найти их произведение

Приложения:

Ответы на вопрос

Ответил 13nisa13
0

var i,a,p:integer;

begin

p:=1;

for i:=1 to 6 do

begin

write ('Введите число: ');

readln (a);

p:=p*a

end;

writeln('Произведение равно: ',p)

end.

Новые вопросы