Var n, c, d, p: integer;
begin
readln(n);
p := 1;
while n<>0 do begin
d := n mod 10;
n := n div 10;
if d mod 2 = 1 then begin
p := p * d;
c := c + 1;
end;
end;
if c = 0 then writeln (0)
else writeln(Exp(Ln(p)/c):0:3);
<span>end.</span>
Анализируем алгоритм:
1) В переменной А производится подсчёт количества цифр числа, следовательно, в искомом числе будет 3 цифры.
2) В переменной В считается произведение всех цифр числа, в искомом числе оно будет равно 14.
Итак, 3 цифры, произведение которых равно 14.
(1*7*2=14)
Нам нужно найти наименьшее число. В самый старший разряд можем поставить число 1, в следующий разряд ставим 2 и в самый младший - 7.
Ответ: 127
program massive;
var i,j,s,min,n:integer;
A:array [1..10000] of integer;
begin
readln(n);
for i:=1 to n do
readln(A[i]);
min:=999;
for i:=1 to n do
if A[i]<min then begin
min:=A[i];
s:=i;
end;
for j:=2 to i do
if j mod 2=0 then A[j]:=0;
for i:=1 to n do
write(A[i],' ');
end.