Правила форума
Прочтите прежде чем задавать вопрос!
текст такой:1+((2 в степени n)/(2 в степени n+1)),и всё это в цикле,который начинается с 1/2... и т.д.
Код
uses crt;
var n,i,j:byte;
znam,chisl,sum:real;
begin
clrscr;
write('n=');
readln(n);
znam:=1;
for i:=1 to n do
begin
sum:=exp(i*ln(2))/exp((i+1)*ln(2));
znam:=znam+sum;
end;
while n>=1 do
begin
chisl:=1;
sum:=0;
for i:=1 to n-1 do
begin
sum:=exp(i*ln(2))/exp((i+1)*ln(2));
chisl:=chisl+sum;
end;
znam:=chisl/znam;
n:=n-1;
end;
writeln('otvet=',znam:2:6);
readkey
end.
var n,i,j:byte;
znam,chisl,sum:real;
begin
clrscr;
write('n=');
readln(n);
znam:=1;
for i:=1 to n do
begin
sum:=exp(i*ln(2))/exp((i+1)*ln(2));
znam:=znam+sum;
end;
while n>=1 do
begin
chisl:=1;
sum:=0;
for i:=1 to n-1 do
begin
sum:=exp(i*ln(2))/exp((i+1)*ln(2));
chisl:=chisl+sum;
end;
znam:=chisl/znam;
n:=n-1;
end;
writeln('otvet=',znam:2:6);
readkey
end.
Не забываем заключать код программы в соответсвтующие теги!
Сообщение отредактировано: APAL -
