Улучшение работы алгоритмов....

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
int main() 
{
    freopen("input.txt", "r", stdin);
    freopen("output.txt", "w", stdout);
    char iar[50],otv[100000],c[100000];
    int a,b,e,d,n,o,i,j,l;
    otv[0] = iar[0] = 0;
    e = d = 1;
    scanf("%d", &a);scanf("%d", &b);
    i = 0; n = a;
    while(n>0){
               o = n%10;
               for(j=i; j>0; j--)
                  iar[j] = iar[j-1];
                  iar[0] = o;
                  n = n/10;
                  i++;
      e = d = i;
      }
    for(j=0; j<i; j++)
        otv[j] = iar[j];
    for (n=1; n<b; n++) { 
        for (i=0; i<e+d; i++) 
            c[i]=0;
            for (i=0; i<d; i++) {
                o=0; l=0;
                for (j=e-1; j>=0; j--) {
                    c[j+d-i]+=(otv[j]*iar[d-1-i] + o)%10;
                    if(c[j+d-i]>9){
                                   l=c[j+d-i]/10;
                                   c[j+d-i]=c[j+d-i]%10;
                                   }
                                   o=(otv[j]*iar[d-i-1] + o)/10+l;        
        if(j==0) c[j+d-1-i]+=o;
        l=0;
        }
      }
     e=e+d;
     while(c[0]==0) {
                    for(j=0; j<e-1; j++)
                    c[j]=c[j+1];
                    if(e!=1) e--; 
                    else break;
       }
     for(i=0;i<e; i++)
       otv[i] = c[i];
     }
    if(b==0) printf("1");
    else {
          for(i=0; i<e; i++) 
          printf("%d",otv[i]);
      }
      return 0;
}

#include <stdio.h>
#include <stdlib.h>
 
void vvod(char *ar, int &n);
bool bolshe(char a[], int na, char b[], int nb);
bool ravno(char a[], int na, char b[], int nb);
void nol(char *ar, int &m, int n);
void vichitanie(char a[], int &n, char b[], int &m);
void umnogenie(char a[], int &n, char b[], int m);
char sqr(char l[]);
char podbor(char b[], int nb, char m[], int &nm, char l[], int nl);
 
int main()
{
        freopen("input.txt", "r", stdin);
    freopen("output.txt", "w", stdout);
    char    a[1000000], b[10000], m[10000], l[10000]; 
    int na,nb,nm,nl,i,j,h,t=0,k;
    char temp[1];
    vvod(a,na);
    nl = 0;
    if (na%2==1){
      for (i=na; i>0; i--)
        a[i] = a[i-1];
      a[0] = 0;
      na++;
      }
    l[0] = a[0];
    l[1] = a[1];
      nl = 2;
    b[0] = sqr(l);
      nb = 1;
    m[0] = b[0]*b[0]/10;
    m[1] = b[0]*b[0]%10;
      nm = 2;
    for (i=2, nb=1; i<na; i+=2, nb++) {
      vichitanie(l,nl,m,nm);
      l[nl] = a[i];
      l[nl+1] = a[i+1];
      nl+=2;
      while(l[0]==0) {
        for(h=0; h<nl-1; h++)
          l[h]=l[h+1];
        if(nl!=1) nl--; else break;
        }
      b[nb] = podbor(b,nb,m,nm,l,nl);
      temp[0] = b[nb];
      umnogenie(m,nm,temp,1);
      }
    for (i=0; i<nb; i++)
      printf("%d",b[i]);
    j = nb;
 
    for (i=j; i<nb; i++)
      printf("%d",b[i]);
    getchar();
    getchar();
    return 0;
}
void vvod(char *ar, int  &n)
{
    int i=0;
    ar[i]=getchar();
    while(ar[i]!='\n') {
    ar[i]-=48;
    i++;
    ar[i]=getchar();
    }
    n=i;
}
bool bolshe(char a[], int na, char b[], int nb)
{
    int i;
    
    if (na>nb) return true;
    else if (nb>na) return false;
    else
      for (i=0; i<na; i++)
        if (a[i]>b[i]) return true;
        else if (b[i]>a[i]) return false;
    
    return false;
}
bool ravno(char a[], int na, char b[], int nb)
{
    int i;
    
    if (na!=nb) return false;
    else
      for (i=0; i<na; i++)
        if (a[i]!=b[i]) return false;
    
    return true;
}
void nol(char *ar, int &m, int n)
{
      int i,j;
    
    for(i=0; i<n-m; i++)
        for(j=n-1; j>0; j--)
        ar[j]=ar[j-1];
    
    for(i=0; i<n-m; i++)
      ar[i]=0;
    
    m=n;    
}
void vichitanie(char a[], int &n, char b[], int &m)
{
    char c[1000];
    int i,j,o;
    
 
    if(n>m) nol(b,m,n);
    else if(n<m) nol(a,n,m);
 
    for(i=0; i<n; i++)
      c[i]=0;
 
    o=0;
    for(j=n-1; j>=0; j--) {
      c[j] += a[j] - b[j] + o;
        o=0;
      if(c[j]<0) {
        o=-1;
        c[j]=10 + c[j];
        }
      }
 
    while(c[0]==0) {
      for(j=0; j<n-1; j++)
        c[j]=c[j+1];
      if(n!=1) n--; else break;
      }
    while(b[0]==0) {
      for(j=0; j<m-1; j++)
        b[j]=b[j+1];
      if(m!=1) m--; else break;
      }
 
    for(i=0; i<n; i++)
      a[i] = c[i];
}
void umnogenie(char a[], int &n, char b[], int m)
{
    char c[1000];
    int i,j,l,o;
 
    for(i=0; i<n+m; i++)
      c[i]=0;
 
    for(i=0; i<m; i++) {
    o=0; l=0;
    for(j=n-1; j>=0; j--) {
        c[j+m-i]+=(a[j]*b[m-1-i] + o)%10;
      if(c[j+m-i]>9) {
        l=c[j+m-i]/10;
        c[j+m-i]=c[j+m-i]%10;
        }
      o=(a[j]*b[m-i-1] + o)/10+l;        
      if(j==0) c[j+m-1-i]+=o;
      l=0;
      }
    }
 
    n=n+m;
    while(c[0]==0) {
      for(j=0; j<n-1; j++)
        c[j]=c[j+1];
      if(n!=1) n--; else break;
      }
 
    for(i=0; i<n; i++)
      a[i] = c[i];
}
 
char sqr(char l[])
{
    int num, k;
    
    num = l[0]*10 + l[1];
    for (k=0; k*k<num; k++) ;
    
    return k*k>num ? k-1 : k;
}
 
char podbor(char b[], int nb, char m[], int &nm, char l[], int nl)
{
    int i,j,h,k;
    char temp[1000], num[1];
 
    temp[0] = 2;
    for (i=0; i<nb; i++)
      m[i] = b[i];
    nm = nb;
    umnogenie(m,nm,temp,1);
 
    for (i=0; i<=10; i++) {       
      for(j=0; j<nm; j++)
        temp[j] = m[j];
      k=nm;
      num[0] = temp[k] = i;
      k++;
      umnogenie(temp,k,num,1);
      if (bolshe(temp,k,l,nl) || ravno(temp,k,l,nl)) break;
      }
    if (bolshe(temp,k,l,nl)) m[nm] = i-1;
    else m[nm] = i;
    nm++;
        
    return m[nm-1];
}