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

dmitriyslesarev dmitriyslesarev    1   28.05.2019 11:00    6

Ответы
savyak444ozb52q savyak444ozb52q  01.10.2020 13:25
Рисунка нету, так что предположу, что в программе верное условие.
---
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика