Var n,m,a,b,c,d:integer;
begin
write('n = ');
readln(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n mod 100 div 10;
d:=n mod 10;
m:=d*1000+c*100+b*10+a;
writeln('m = ',m);
end.
Пример:
n = 1762
m = 2671
Это объект любой окружающего мира
Решение - в прилагаемом файле.
Всего строк в таблице истинности = 2^7 =128 строк,
из семи одинаковых строк только одна имеет 1 (единицу ) в столбце значений, то есть F=1 G=1 F*G =1
Для всех остальных строк, где F и G принимают значения, равные нулю или различные значения: F*G =0
128 - 1=127 - количество строк, где F*G=0