Вводятся координаты x y множество точек,последними - вопрос №101115980 от толька54 04.12.2022 12:01

Question

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

толька54 · Answer

var  x, y: real;  k: integer;  begin  k := 0;  Read(x, y);  while (x 0) or (y 0) do  begin    if (x 0) and (y 0) then      k := k + 1;    Read(x, y)    end;  Writeln(k);end....