Question

Для данных областей составить линейную программу,которая печатает true,если точка с координатами (x,y) принадлежит закрашенной области,и false- в противном случае

Answer 1

program al;
var x,y:real;
begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
if ((x/6+y/6<=1) and (x/2+y/4>=1) and (x>0) and (y>0)) 
then 
writeln('true') else writeln('false');
readln;
end.