Числовые последовательности

[Guest]

Люди, помогите с задачей, очень надо.

Вычислить:
P=(1-1/2)*(1-1/4)*(1-1/6)*...*(1-1/2n);

Заранее спасибо

 

[Black horse]

program I_idiot;
var
p : real;
i, n : integer;
begin
Readln(n);
p:=1;
For i:=1 to n do
p:=p * (1 - 1 / (2 * n));
Writeln(p)
end.

 

[Guest]

Люди, я конечно понимаю, что задаю глупые вопросы, но я только учусь и у меня прблемы с заданием циклов. Так что пожалуйста подскажите с циклом в программе
S=1!+2!+3!+...n!;

и дайте ссылку на нормальный учебник. СПАСИБО!!!!!!