Составить программу по которой выведется значение True, если точка
с координатами (x, y) лежит внутри заштрихованной области; и False – в противном случае

1

Ответы и объяснения

2014-04-10T15:21:06+04:00
Program Program1;
var x, y, result: real;
h: boolean;
begin
     h := false;
     writeln(Введите значения X и Y: ');
     readln(x, y);
     if y <= 0 then writeln(h);
     result := abs(x) + abs(y);
     if result < 4 then h := true
                    else h := false;
     writeln(h);
end.