Предмет: Информатика,
автор: tasha15
Дано: 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);
Похожие вопросы
Предмет: Математика,
автор: imirdavletsin
Предмет: Математика,
автор: Аноним
Предмет: Алгебра,
автор: stasazaiko
Предмет: Математика,
автор: Аноним