Написать програму на с++ для решения ребуса(использовать множество) ракета+орбита=космос

/ребус#include< conio.h> #include< iostream.h> void main(){ *int i,j,r; * long int buk,slo,a[8]; * clrscr(); * for(a[0]=1; a[0]< =3; a[0]++)* *for(a[1]=0; a[1]< =9; a[1]++)* * for(a[2]=0; a[2]< =9; a[2]++)* * *for(a[3]=0; a[3]< =9; a[3]++)* * * for(a[4]=0; a[4]< =9; a[4]++)for(a[5]=1; a[5]< =9; a[5]++) for(a[6]=0; a[6]< =9; a[6]++) *for(a[7]=0; a[7]< =9; a[7]++)  * * { *buk=a[0]*10000+a[1]*1000+a[2]*100+a[3]*10+a[4]; slo=a[5]*10000+a[6]*1000+a[7]*100+a[3]*10+a[7]; * *if(buk*3==slo) * *{ r=0; * * * * * * * * * //проверка того, что * * *for(i=0; i< 8; i++) * * //разным буквам соответствуютfor(j=i+1; j< 8; j++) *//разные цифры *if(a[i]==a[j]) r++; *if(r==0)cout< < buk< < " + " * * < < buk< < " + " * * < < buk< < " = " * * < < slo< < endl; * *} * * *}getch();

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

51 в десятой сс=110011 в двоичной сс

85 в дес сс=1010101 в двоичной сс

110011+1010101=10001000

110011-1010101=1111111111011110

вроде так

если ответ нужен в десятичной сс, то просто переведи