ввести с клавиатуры 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.
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Алгебра,
7 лет назад
Математика,
7 лет назад
Алгебра,
9 лет назад