Var X, y: real;

begin

readln(x, y);

if y <= x then

if y >= -x then

if x*x+y*y <= 1 then

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

else

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

end.

Последовательно выполните следующее: 1) Приведите пример таких чисел x, y, при которых программа неверно решает поставленную задачу. 2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой способ доработки исходной программы).

1 Далее при разборе задачи используется язык Паскаль, который наиболее распространен в школах России.

2 Источники заданий:

1. Демонстрационные варианты ЕГЭ 2004-2009 гг.

2. Гусева И.Ю. ЕГЭ. Информатика: раздаточный материал тренировочных тестов. — СПб: Тригон, 2009.

3. Крылов С.С., Лещинер В.Р., Якушкин П.А. ЕГЭ-2010. Информатика. Универсальные материалы для подготовки учащихся / под ред. В.Р. Лещинера / ФИПИ. — М.: Интеллект-центр, 2010.

18 Http://kpolyakov.Narod.Ru