Var X,y: real;

begin

readln(x,y);

if (y <=2-x*x) and ((y>=x) or (y>=0)) then

write('принадлежит')

else

write('не принадлежит')

e nd.

Область	y>=x?	y>=0?	y<=2-x*x?	вывод	верно?
A	да
B	да
C	нет
D	нет
E	да
F	да
G	нет

Область	y>=x?	y>=0?	y<=2-x*x?	вывод	верно?
A	да
B	да
C	нет
D	нет
E	да
F	да
G	нет

Область	y>=x?	y>=0?	y<=2-x*x?	вывод	верно?
A	да
B	да
C	нет
D	нет
E	да
F	да
G	нет

Область	y>=x?	y>=0?	y<=2-x*x?	вывод	верно?
A	да
B	да
C	нет
D	нет
E	да
F	да
G	нет

Область	y>=x?	y>=0?	y<=2-x*x?	вывод	верно?
A	да
B	да
C	нет
D	нет
E	да
F	да
G	нет

Р4. Требовалось написать программу, которая вводит с клавиатуры координаты точки на плоскости (x, y – действительные числа) и определяет принадлежность точки заштрихованной области, включая ее границы. Программист торопился и написал программу неправильно. Вот она: