.


           


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

{ }

Function PS(m : integer; a : real) : real;

var

i : integer;

pp : real;

begin

pp := exp(-a);

if m = 0 then pp := exp(-a)

else for i := 1 to m do pp := pp*a/i;

PS := pp

end;

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

{ }

begin

write(' '); readln(n);

write(' ');

readln(p);

writeln(' , ');

write(' '); readln(m);

a := n*p;

writeln(' ', m, ' ');

writeln(' ',n, ' ', PS(m, a):1:6)

end.

9

{ - }

Program Problem1;

uses WinCrt;

var

n, m1, m2 : longint;

p, PP : real;

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

{ 頠 }

{ 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