Question

Напишите два варианта программы(2 не обязательно),которая вводит координаты на плоскости и определяет,попала ли эта точка в заштрихованную область.

Answer 1

Var X,Y:real;
Begin
Write('X = ');Read(X);
Write('Y = ');Read(Y);
if (X*X+Y*Y=1)or( (X>=0)and(Y>=0)and(X<=1)and(Y<=1) ) then Write('Попала')
else Write('Мимо')
End.