Нужна помощь по Free Pascal или Borland Pascal

1. 7777seny7777 (04.02.2012 / 10:14)
Задано точку з координатами х та у. Визначити, в якій координатній чверті вона розміщена.
Формат вхідних даних

З клавіатури вводяться цілі числа х та у, які розділені одним пробілом (-1000 < х, у < 1000).
Формат вихідних даних

На екран виводиться одне число – координатна чверть або 0, якщо визначити однозначно чверть не можна

Добавлено через 01:16 сек.
Кто поможет?

2. Алексей (04.02.2012 / 10:26)

var y = 10, x = 10; (y>0)?((x>0)?1:2):( (x>0)?4:3);

смысл понятен
код на JavaScript

3. 7777seny7777 (04.02.2012 / 10:33)
Мнеб на Паскале

4. Apollon76 (04.02.2012 / 15:10)

var x,y:int64;
begin
readln(x,y);
if x>0 then
begin
  if y>0 then
    writeln(1)
  else
    writeln(4);
end
else
begin
  if y>0 then
    writeln(2)
  else
    writeln(3);
end;
if(x=0)or(y=0)then
  writeln(0);
end.

5. Дмитрий (04.02.2012 / 16:10)
Старый добрый паскаль ... бррр..

URL: https://visavi.net/topics/29169