Developing.ru

Пусть x,y координаты точки U, a=x+y, если U(x,y) принадлежит D; a=x-y, D в противном случае. Область D есть множество точек выше параболы y=x*x, но ниже кривых y=exp(-x) и y=exp(x). Определить a.

[Syntax='Delphi']
Program LaLala;
Var X,Y:Real;A:Real;

Function InD(B,C:Real):Boolean;
Begin
InD:=(C>Sqr(X))And(C<Exp(-abs(x)));
End;

Begin
ReadLn(X,Y);
If InD(X,Y) Then A:=X+Y else A:=X-Y;
Writeln(a);
End.
[/syntax]