Написать программу на Паскале. Дано натуральное число. Вычислить среднее геометрическое нечетных цифр.

Question

Информатика

Ина

24 февраля, 15:11

Написать программу на Паскале. Дано натуральное число. Вычислить среднее геометрическое нечетных цифр.

+4

Ответы (1)

Знаете ответ на вопрос?

Земфира · Answer 1

Var n, c, d, p: integer;

begin

readln (n) ;

p : = 1;

while n0 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) ;

end.