Цитата:
Сообщение от vana174
да абсолютно уверен как думаю я надо найти определённую последавательность преподаватеь говорил что должно быть примерно так:
2+2 в степени i
|
Ладно, кое-что получилось. Попробуйте так. Пояснение: для убедительности выводится последовательность знаменателей слагаемых.
Код:
Var
S:real;
n,i,a,b:LongInt;
Begin
Write('n= ');
Readln(n);
a:=1;
S:=1;
b:=1;
writeln('i= 0 a=1');
For i:=1 to n-1 do
begin
b:=b*2;
a:=2*a+b;
writeln('i=',i:2,' a=',a);
S:=S+1/a;
end;
Writeln('Sum= ',S:0:5);
Readln;
End.