Нужно написать программу в паскале описать функцию quarter(x, y) целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x, y). с этой функции найти номера координатных четвертей для трех точек с данными ненулевыми координатами.

Var     i: integer;     x,y: real; function quarter(x,y: real): integer; begin if (x> 0) and (y> 0) then result: =1; if (x< 0) and (y> 0) then result: =2; if (x< 0) and (y< 0) then result: =3; if (x> 0) and (y< 0) then result: =4; end; begin writeln('введите координаты точки'); readln(x,y); i: =quarter(x,y); writeln('номер координатной четверти; ',i) end.

на египетскую

вавилон-клинопись

финикия-подобие букв без гласных

египет-иероглифы