Форум умных людей

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

var x,y: real;
begin
readln(x,y);
if y>=-x then
if y<=1 then
if (x*x+y*y<=1) then
write('принадлежит')
else
write('не принадлежит')
end.

Думаю ответов нет потому, что не ясно изложено условие. "Какая заданная закрашенная область?" и т.п. И поэтому не понятно почему вы используете данные условия оператора if

(http://i037.radikal.ru/1203/70/41959b830353.png) (http://www.radikal.ru)
вот изображение к задаче извините протупил.

Этим условием вы отсекаете область верхнюю левую "треугольничек"

Вы берете только пересечение всех 3-х множеств

добавьте к нему например " ИЛИ x<0 "

неплохо, вилли хорошо знаете програмирование?

Ну чтож отлично продолжим
Дан целочисленный массив из 20 элементов. Элементы массива могут
принимать целые значения от –1000 до 1000. Опишите алгоритм, позволяющий найти и
вывести минимальное значение среди элементов массива, которые имеют
чётное значение и не делятся на три. Гарантируется, что в исходном
массиве есть хотя бы один элемент, значение которого чётно и не кратно
трем.
Исходные данные объявлены так, как показано ниже. Запрещается
использовать переменные, не описанные ниже, но разрешается не
использовать часть из них.
Паскаль
const
N=20;
var
a: array [1..N] of
integer;
i, j, min: integer;
begin
for i:=1 to N do
readln(a);
Закончите программу

реквестирую перенос этой темы в "Помогите решить!"
задачи из ЕГЭ не представляют самостоятельного интереса для любителей головоломок

да