Очень срочно Требовалосьнаписать программу…

Очень срочно Требовалосьнаписать программу, которая вводит с клавиатуры координаты точки на плоскости (x, y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу неправильно. Вот она: var x, y: real; begin readln (x, y); if x >=0 then if y <= 1 then if (xx+yy <= 1) and (y >=x-1) then write ('принадлежит') else write ('не принадлежит'); end. Надо ее зделать правильно

в избранное

winnerg00d

22 февраля 2023

Рисунка нету, так что предположу, что в программе верное условие.-var x,y: real; begin readln (x, y); if (x>=0) and (y <= 1) and (x*x+y*y <= 1) and (y >=x-1) then write ('принадлежит') else write ('не принадлежит'); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?