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

/ребус#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();

    1 способ                                             2 способ

х чаек - на первом острове                 х чаек - на первом острове

у чаек - на втором острове                   79-х чаек - на втором острове

х+у=79               х+у=79                         х-15-12=79-х+12

х-15-12=у+12     х-у=39                          2х=118

                        2х=118                           х=59

                        х=59                               79-59=20

                        у=20

ответ: на первом острове 59 чаек, на втором - 20 чаек.

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.