zadach180.BAS

{* Задача180 *}

REM basic

' Определить попадает ли точка А(X, Y) в первую четверть
' окружности R с центром X0 = 3 и Y0 = 5


CLS
INPUT R, X, Y
   X0 = 3: Y0 = 5
   CondX = X > 3 And X < 3 + R                  
   CondY = Y > 5 And Y < 5 + R                  
   CondYX = (X - 3) ^ 2 + (Y - 5) ^ 2 < R ^ 2   
If CondX And CondY And CondYX Then PRINT "Да" Else PRINT "Нет"
End