Смена типа данных??

[Agrophena]

Помогите решить задачу: сложить 2 целых числа. представленных в десятичной системе. Но использовать операцию сложения по модулю 2 . То есть необходимо числа перевести в двоичную систему , затем сложить XOR, затем снова перевести в десятичную систему. Помогите!! Или хотя бы дайте какие то дельные рекомендации.: confused:

[kommunist]

http://www.programmersforum.ru/showthread.php?t=9158

[Agrophena]

А из двоичной в десятичную??

[kommunist]

function BinToInt(Value: String): LongInt;
var

i,Size: Integer;
begin

Result:=0;
Size:=Length(Value);
for i:=Size downto 0 do begin
if Copy(Value,i,1)='1' then begin
Result:=Result+(1 shl i);
end;
end;
end;

[Agrophena]

Многоуважаемый коммунист, большое спасибо за помощь, за поддержку, плечо и прочие прелести этой жизни.. Я вся в поисках.., нашла решение моей задачи в одну строку. Это тривиальное побитовое сложение. Результат сразу в десятичной системе. Но все равно спасибо за помощь.