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

2014-04-01T04:59:55+00:00
Var n:integer;
var x,P:Real;
begin  writeln ('введите x'); 
  Readln(x); 
  P:=1; 
  for n:=1 to 6 do P:=P * (x-(power (2,n)-1))/(x-(power(2,n)));  
  writeln ('P= ',P );
end.