Циклические преобразования целых чисел

#include<iostream.h>
#include<conio.h>
#include<stdio.h>
int razdelenie( int A)
{
    int a,b,c,g;
    a=A/100;
    b=A/10-a*10;
    c=A-a*100-b*10;
    
    g=a*a+b*b+c*c;
 
    return g;
}
int issledovanie(int A)
{
    int pr[100];
    int i,j,p=0,c=0,n=0;
    int povtor,nachinai,cycl,czerez;
 
    
    pr[1]=razdelenie(A);
    for (i=2; i<99; i++)
    
 
    {pr[i]=razdelenie(pr[i-1]);
    }
    
    
    for (i=10; i>0;i--)
    {for (j=10; j>0; j--)
    
    {if ((pr[i]==pr[i+1])&&(pr[j]==pr[j+1]))
    {povtor=pr[i]; nachinai=i;p=p+1;};};}
    
    for (i=10; i>0;i--)
    {for (j=10; j>0; j--)
    {if ((pr[i]==pr[i+j])&&(j>2)&&(pr[i]!=pr[i+1])&&(pr[j]!=pr[j+1]))
    {cycl=pr[i];czerez=j;c=c+1;};};
 
    
    
    
 
    };
    if (p>0)
    {cout<<A<<" povtor "<< povtor  <<" nachinai "<<nachinai<<"  "<<endl;
    A=povtor;}
 
       
      
       
    if ((c>0)&&(cycl>0))
    {cout<<A<<" cycl "<<cycl<<" czerez  "<<czerez<<"  "<<endl;
    A=cycl;}
    if ((c==0)&&(p==0))
    {cout <<A<<" nic "<<endl;
    A=0;}
 
 
    
return A;
}
 
void main(void)
{
    int A;
FILE*myfile;
myfile=fopen("1.txt","wt");
 
 
FILE*myfile2;
myfile2=fopen("cycl.txt","wt");
FILE*myfile3;
myfile3=fopen("nic.txt","wt");
for (int k=100; k<1001; k++)
{A=issledovanie(k);
{if (A==1)
{fprintf(myfile,"%d\n",k);};};
 
{if ((A==16)||(A==89)||(A==58)||(A==37)||(A==145)||(A==42)||(A==4))
{fprintf(myfile2,"%d\n",k);};};
{if (issledovanie(k)==0)
{fprintf(myfile3,"%d\n",k);};};
 
};
fclose(myfile);
 
}