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

кекай кекай    1   03.11.2019 19:07    0

Ответы
Kate215649 Kate215649  10.10.2020 11:05

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика