Помогите, прошу вас!!! :(

Эта задача от Paskal ABC...

Написать программу, которая при вводе координат XY выдаёт номер четверти координатной плоскости.

1

Ответы и объяснения

2013-04-08T21:44:17+04:00

program qqq;

var x, y: longist;

begin

 readln(x,y);

if x>0

 then if y>0 

           then writeln('I четверть')

           else writeln('IV четверть')

else if y>0

           then writeln('II четверть')

           else writeln('III четверть');

end.

 

 Как-то так.