Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Составьте программу, определяющую номер координатной четверти, в которой находится точка с координатами(x,y).Числа x,y введите с клавиатуры. Pascal ABC

Ответ оставил Гость

Program koordinati;
var x,y:integer;
begin
writeln(ввести координаты точки);
readln(x,y);
if (x>0) and (y>0) then writeln(точка в 1 плоскости);
if (x<0) and (y>0) then writeln(точка в 2 плоскости);
if (x<0) and (y<0) thne writeln(точка в 3 плоскости);
if (x>0) and (y<0) then writeln(точка в 4 плоскости);
if (x=0) and (y=0) then writeln(точка в центре);
end.