Получаем обычную схему "И", на входы которой подаются сигналы А и В.
--------
А ---| & |
В ---| |---- F
-------
Var A,B,n,M:integer;
Begin
Write('A = ');ReadLn(A);
While A<>0 do
Begin
if (A mod 10) mod 2 = 0 then
Begin
M:=1;
For n:= 0 to n do
M:=M*10;
B:=(A mod 10)*M+B;
n:=n+1;
End;
A:=A div 10;
End;
WriteLn(B div 10);
End.
Пример:
A = 123456789
2468
А) 11201=127 б)1423=238 в)1205=446 г)291=586 ответ:а)127