Дано: n-натуральное число (longint). Вычислить среднее геометрическое цифр больших единицы. Составить программу в Паскале
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Все время забываю про power. Строку x:=exp(ln(p)/s); можно записать проще x:=power(p,1/s);
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад