Составьте программку, определяющую номер координатной четверти, в которой находится точка с

Составьте программу, определяющую номер координатной четверти, в которой находится точка с координатой четверти, в которой находится точка с координатами (x, y). Числа x, y введите с клавиатуры.
Пример ввода: -5 7
Пример вывода:2
(Это в ПАСКАЛЬ)

Задать свой вопрос
1 ответ
Var x,y: integer;
    k: 1..4;
begin
writeln('Введите координаты:');
write('x=');readln(x);
write('y=');readln(y);
if (xgt;0) and (ygt;0) then k:=1 else
   if (xlt;0) and (ygt;0) then k:=2 else
      if (xlt;0) and (ylt;0) then k:=3 else k:=4;
writeln('Точка находится в ',k,' четверти координатной плоскости');
readln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт