Составить приложение на языке Pascal.вводятся координаты точек х,у. определить в какую четверть она попадает
Answers & Comments
nikolac
Uses crt; var x,y:real; begin read(x,y); if (x>0) and (y>0) then writeln('I') else if (x<0) and (y>0) then writeln('II') else if (x<0) and (y<0) then writeln('III') else writeln('IV'); end.
Answers & Comments
var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then
writeln('I')
else if (x<0) and (y>0) then
writeln('II')
else if (x<0) and (y<0) then
writeln('III')
else
writeln('IV');
end.