На фото мало что видно, но я попытаюсь
Как математически это представить?
1)
Точка должна быть ниже линии у=(непонятка1) горизонтальная линия
2)
Точка должна быть левее линии х=(непонятка2) вертикальная линия
3)
Точка должна быть выше линии у=(непонятка3 зависящая от х) накладная линия
По программистски условие выглядит так:
If у<(непонятка1) and x<(непонятка2) and y>(непонятка3 зависящая от х) then write('принадлежит');
Else write(' не принадлежит');
Итоговая прога выглядит примерно так:
Var x,y: real;
Begin
Read(x,y);
If у<(8) and x<(8) and y>(x-8) then write('принадлежит');
Else write(' не принадлежит');
End.
Вот и всё. Я не вижу чему равны непонятки, поэтому замени 8 на соответствующие величины
Proc1(5)
Объяснение:
Вызов процедуры происходит по её имени (Proc1) с указанием параметра (5)