1. Таблица истинности - в прилагаемом файле.
2.
var x,y:real;
begin
writeln('x, y:');
readln(x,y);
writeln((x<0)and(y>0));
end.
Пример:
x, y:
-3 2
True
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2;
var p:=(x>-4) and (x<5) and (y>-3) and (y<0) or
(y>0) and (y<4) and (Abs(x)<2);
if p then Writeln('Принадлежит')
else Writeln('Не принадлежит')
end.
16. а) 101010+1101=110111 б) 1010+1010=10100 в) 10101+111=11100
17. а) 1010*11=11110 б) 111*101=11011 в) 1010*111=1100110
If M<=15 then M:=2*Sqrt(N) else M:=N-3;
Смотря что ты можешь сделать
и какие усилия готова в него вложить!!!