ПАСКАЛЬ заранее спасибо))

Question

ПАСКАЛЬ заранее спасибо))

Answer 1

Ответ:

Program pro;

var

 Ymax : real := 1.5;

 Ymin : real := -2;

 X, Y : real;

 

Begin

 readln(X, Y);

 if (Y <= Ymax) and (Y >= Ymin) then writeln('попадает') else writeln('не попадает');

End.

Объяснение:

программа протестирована в PascalABC.NET