Проверить истинность высказывания точка с координатами x y лежит в четвертой четверти pascal

ilyadmitriev0 ilyadmitriev0    2   17.10.2019 11:54    0

Ответы
Анюточка2906 Анюточка2906  05.08.2020 08:25

program Point;

var

 x, y: Real;

begin

 Write ('Введите X, Y: ');

 ReadLn (x, y);

 if (x > 0) and (y < 0) then

   WriteLn ('Точка лежит в IV четверти')

 else

   WriteLn ('Точка не лежит в IV четверти');

 ReadLn;

end.

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