.


           


{ 頠 }

{ 0 x. - }

Function FF(x : real) : real;

var

n : integer;

u, I : real;

begin

if

x >= 5

then

FF := 1

else if x <= -5

then FF := -1

else

begin

u := x; n := 0; I := 0;

repeat

I := I + u;

n := n + 1;

u := -u*(x*x*(2*n - 1)/(2*n*(2*n + 1)))

until

abs(u) < 0.00001;

FF := 2*I/sqrt(2*Pi)

end

end;

{----------------------------------------------------------------------------------------}

{ n }

Procedure Number(p, e, PP : real; var n : longint);

var

x : real;

begin

x := 0;

repeat

x := x + 0.01

until FF(x) >= PP;

n := round(e/(x*sqrt(p*(1 - p))) + 0.5);

n := sqr(n)

end;

{----------------------------------------------------------------------------------------}

begin

write(' ');

write(' '); readln(q);

write(' ');

write(' np ( ) '); readln(e);

write(' '); readln(PP);

Number(q, e, PP, n);

writeln(' ', n)

end.

11

 

{ (ReIection) }