Дано: n-натуральное число (longint). Вычислить среднее геометрическое цифр больших единицы. Составить программу в Паскале

Question

Информатика

Илюня

28 августа, 15:58

Дано: n-натуральное число (longint). Вычислить среднее геометрическое цифр больших единицы. Составить программу в Паскале

+2

Ответы (1)

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

Генюся · Answer 1

Var

n:longint;

i, s, p, y:integer;

t:string;

x:real;

begin

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

readln (n) ;

p:=1;

t:=IntToStr (n) ;

for i:=1 to length (t) do

begin

y:=StrToInt (t[i]) ;

if y>1 then

begin

s:=s+1;

p:=p*y

end;

end;

x:=exp (ln (p) / s) ;

writeln ('Среднее геом. цифр больших единицы: ', x)

end.