решённая задача, требуется корректировка Опции

[Ksander]

решил задачу да неправильно, не знаю в чём причина, уже всё перепробовал,ответ есть, но только он неправильный
текст такой: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.

Не забываем заключать код программы в соответсвтующие теги!

Сообщение отредактировано: APAL - 17.08.2004 18:38

[Romtek]

APAL,
Это я не тебе адресовал, а Ksanderу. ;)