Вводятся координаты x y множество точек,последними вводятся значения x=0 y=0. Определить,сколько точек будет расположено во второй четверти( написать программу для паскаля)

3 Ноя 2019 в 19:43
187 +1
0
Ответы
1
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) программа выводит количество точек, расположенных во второй четверти.

19 Апр 2024 в 03:04
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир