да номер 1 и 2 правильно ой мой сыночек какой ты молодец горжусь тобой чувак
Var x,y : real; b:boolean;
begin
write('x = '); readln(x);
write('y = '); readln(y);
b:= (x*x+y*y<=36)and((x<=0)or(x>=0)and(y<=0));
writeln(b);
<span>end.</span>
Всего строк в таблице истинности = 2^7 =128 строк,
из семи одинаковых строк только одна имеет 1 (единицу ) в столбце значений, то есть F=1 G=1 F*G =1
Для всех остальных строк, где F и G принимают значения, равные нулю или различные значения: F*G =0
128 - 1=127 - количество строк, где F*G=0
Ввод информации в тело программы