Ответы и объяснения

2014-04-15T15:26:53+00:00
Var i,n,s:integer;
p:real;
begin
readln(n);
p:=1;
for i:=2 to n do begin
p:=p*(1-1/i);
end;
writeln(p);
end.