zadach79.BAS

{* Задача79 *}

REM basic

' С клавиатуры вводятся координаты точки на плоскости (X и Y). Указать, в какой из четвертей находится точка.


10 CLS
30 INPUT "X ="; X
40 INPUT "Y ="; Y
50 If X >= 0 And Y >= 0 Then PART = 1
60 If X >= 0 And Y < 0 Then PART = 2
70 If X < 0 And Y < 0 Then PART = 3
80 If X < 0 And Y >= 0 Then PART = 4
90 PRINT "Точка расположена в"; PART; "четверти"
100 End