Здравствуйте, Люди добрые кто нибудь создать таблицу Истинности
А) А& (NOT(В))
Б) A & A v A

А) N   O T А В N∧O N∧O∧T N∧O∧T∧В А∧(N∧O∧T∧В)

0 0 0 0 0 0 0 0 0

0 0 0 0 1 0 0 0 0

0 0 0 1 0 0 0 0 0

0 0 0 1 1 0 0 0 0

0 0 1 0 0 0 0 0 0

0 0 1 0 1 0 0 0 0

0 0 1 1 0 0 0 0 0

0 0 1 1 1 0 0 0 0

0 1 0 0 0 0 0 0 0

0 1 0 0 1 0 0 0 0

0 1 0 1 0 0 0 0 0

0 1 0 1 1 0 0 0 0

0 1 1 0 0 0 0 0 0

0 1 1 0 1 0 0 0 0

0 1 1 1 0 0 0 0 0

0 1 1 1 1 0 0 0 0

1 0 0 0 0 0 0 0 0

1 0 0 0 1 0 0 0 0

1 0 0 1 0 0 0 0 0

1 0 0 1 1 0 0 0 0

1 0 1 0 0 0 0 0 0

1 0 1 0 1 0 0 0 0

1 0 1 1 0 0 0 0 0

1 0 1 1 1 0 0 0 0

1 1 0 0 0 1 0 0 0

1 1 0 0 1 1 0 0 0

1 1 0 1 0 1 0 0 0

1 1 0 1 1 1 0 0 0

1 1 1 0 0 1 1 0 0

1 1 1 0 1 1 1 1 0

1 1 1 1 0 1 1 0 0

1 1 1 1 1 1 1 1 1

Б) A   v A∧A A∧A∧v A∧A∧v∧A

0 0 0 0 0

0 1 0 0 0

1 0 1 0 0

1 1 1 1 1

Объяснение:

writeln('a[',i,']=',a[i]);

readln;

end.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.