Ответы и объяснения

2013-09-21T12:06:31+04:00
Var   X:byte;   LoN,HiN:byte; ....................   LoN:=X mod 10;   HiN:=(X-LoN) div 10;   if LoN=HiN     then Dec(X,2)     else       if HiN>LoN         then HiN:=HiN-LoN         else LoN:=LoN-HiN