18 lines
402 B
ObjectPascal
18 lines
402 B
ObjectPascal
var
|
|
x,y: integer; // Координаты точки
|
|
Quater: integer; // Номер четверти
|
|
begin
|
|
repeat
|
|
write('Введите координаты точки: ');
|
|
readln(x,y);
|
|
if x>0 then
|
|
if y>0 then
|
|
Quater := 1
|
|
else Quater := 4
|
|
else
|
|
if y>0 then
|
|
Quater := 2
|
|
else Quater := 3;
|
|
writeln('Номер четверти = ',Quater);
|
|
until x=228
|
|
end. |