Var X,Y:real; Begin Write('X = '); ReadLn(X); Write('Y = '); ReadLn(Y); if (Y>=0)and(Y<=X+4)and(Y<=4-X) then WriteLn('(',X,',',Y,') попадает в заштрихованную область')<br>else WriteLn('(',X,',',Y,') - мимо') End.
остальные ВСЕ фигуры здесь
Var X,Y:real;
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
if (Y>=0)and(Y<=X+4)and(Y<=4-X) then WriteLn('(',X,',',Y,') попадает в заштрихованную область')<br>else WriteLn('(',X,',',Y,') - мимо')
End.
остальные ВСЕ фигуры здесь