Вводятся координаты x y множество точек,последними вводятся значения x=0 y=0. Определить,сколько точек будет расположено во второй четверти( написать программу для паскаля)
program CountPointsInSecondQuadrant; var x, y: integer; count: integer; begin count := 0; repeat readln(x, y); if (x < 0) and (y > 0) then count := count + 1; until (x = 0) and (y = 0); writeln('Number of points in the second quadrant: ', count); end.
Эта программа считывает координаты x и y точек и проверяет, находятся ли они во второй четверти (x < 0 и y > 0). После ввода точки с координатами (0, 0) программа выводит количество точек, расположенных во второй четверти.
var
x, y: integer;
count: integer;
begin
count := 0;
repeat
readln(x, y);
if (x < 0) and (y > 0) then
count := count + 1;
until (x = 0) and (y = 0);
writeln('Number of points in the second quadrant: ', count);
end.
Эта программа считывает координаты x и y точек и проверяет, находятся ли они во второй четверти (x < 0 и y > 0). После ввода точки с координатами (0, 0) программа выводит количество точек, расположенных во второй четверти.