var 
 x,y: integer; // Координаты точки
 Quater: integer; // Номер четверти
begin
 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);
end.


 Похожие публикации
2015-10-23 • Просмотров [ 307 ]