задача: Существует уравнение типа: ABCDE*9=FGHJK. Каждая буква в этом уравнении соответствует определенной цифре от 0 до 9. Нужно найти эти два числа, ABCDE и FGHJK.
нужно написать на C++ или если кто может, переделать код с Delphi на C++:
{$APPTYPE CONSOLE}
type byteset=set of byte;
var d:array [0..9] of longint;
procedure c;
var a,b,i:longint;
begin
a:=0;
b:=0;
for i:=0 to 4 do begin
a:=a*10;
a:=a+d[i];
b:=b*10;
b:=b+d[i+5];
end;
if a*9=b then writeln(a,' ',b);
end;
procedure r(k:longint;o:byteset);
var i:longint;
begin
if k>9 then c
else for i:=0 to 9 do if i in o then begin
d[k]:=i;
r(k+1,o-[i]);
end;
end;
: 
