Question

Найдите произведение всех однозначных чисел среди 8 введенных.Паскаль

Answer 1

var

i,k, p: integer;

begin

p:=1;

for i:=1 to 8 do

begin

Readln (k);

if k div 10 = 0 then p:=p*k

end;

writeln (p);

end.

Answer 2

Хорошо, чтобы найти произведение всех однозначных чисел среди 8 введенных, нужно умножить все однозначные числа и проигнорировать все остальные числа. Поскольку в условии нет указания на конкретные числа, предположим, что пользователь вводит 8 различных чисел.

Пример ввода: 1, 2, 10, 5, 6, 12, 8, 7

Однозначные числа: 1, 2, 5, 6, 8, 7

Произведение однозначных чисел: 1 * 2 * 5 * 6 * 8 * 7 = 6720

Таким образом, произведение всех однозначных чисел среди 8 введенных равно 6720.