7.0



5.2. - 2


P1, P2 .

, TRUE, P1, THEN. P2, ELSE .

- .

. P1 P2 . , BEGIN..END. .

IF < > THEN

begin

< 1>;

... P1

< n>;

end

ELSE

begin

< 1>;

... P2

< m>;

end;

1. :

y =

-

Program P_1;

Var

x, y: real;

Begin

writeln ( x);

read (x);

if x>0 then y := ln(x) else y := exp(x);

writeln (y = , y:6:2);

End.

2. ax2+bx+c=0. . , .