дана точка с координатами x y определить номер декартовой системы координат, к которой она принадлежит
Answers & Comments
HRAshton
Var x, y: integer; z: string; begin readln(x, y); if (x > 0) then if (y > 0) then z := '1' else if (y = 0) then z := '1, 4' else z := '4'; if (x = 0) then if (y > 0) then z := '1, 2' else if (y = 0) then z := '0' else z := '3, 4'; if (x < 0) then if (y > 0) then z := '2' else if (y = 0) then z := '2, 3' else z := '3'; writeln('>>', z, '<<'); end.
Я когда-то в школе такую писал, но эту гораздо лучше сделал *О*
Answers & Comments
z: string;
begin
readln(x, y);
if (x > 0) then
if (y > 0) then z := '1'
else if (y = 0) then z := '1, 4'
else z := '4';
if (x = 0) then
if (y > 0) then z := '1, 2'
else if (y = 0) then z := '0'
else z := '3, 4';
if (x < 0) then
if (y > 0) then z := '2'
else if (y = 0) then z := '2, 3'
else z := '3';
writeln('>>', z, '<<');
end.
Я когда-то в школе такую писал, но эту гораздо лучше сделал *О*