Автор: Bronislav

Bronislav — Fri, 08 Dec 2017 23:34:38 +0000

var x,y:real;
begin
writeln('enter the coordinates x,y');
readln(x,y);
if x*y>0 then 
          if x>0 then writeln('in 1st kvadrant')
          else writeln('in 3rd kvadrant')
else if x>0 then writeln ('in 4nd kvadrant')
     else writeln('in 2th kvadrant');
end.

var x,y:real;

begin

writeln('enter the coordinates x,y');

readln(x,y);

if x*y>0 then

if x>0 then writeln('in 1st kvadrant')

else writeln('in 3rd kvadrant')

else if x>0 then writeln ('in 4nd kvadrant')

else writeln('in 2th kvadrant');

end.

Комментарии: Решаем задачи Абрамян на Паскале. If22

Автор: Bronislav