Cod sursa(job #2786675)

Utilizator teodortatomirTeodor Tatomir teodortatomir Data 21 octombrie 2021 14:53:34
Problema Patrate2 Scor 100
Compilator c-64 Status done
Runda Arhiva de probleme Marime 0.73 kb
#include <stdio.h>
#include <stdlib.h>
#define MAXCIF 32000

int v[MAXCIF];
int main(){
  FILE *fin,*fout;
  int n,i,nrcif,x,t,nr;

  fin=fopen("patrate2.in", "r");
  fout=fopen("patrate2.out", "w");
  fscanf(fin, "%d", &n);
  v[0]=1;
  nrcif=1;
  for(x=2;x<=n;x++){
    t=i=0;
    while(i<nrcif || t>0){
      t=t+x*v[i];
      v[i]=t%10;
      t/=10;
      i++;
    }
    if(i>nrcif)
      nrcif=i;
  }
  nr=n*n;
  for(x=0;x<nr;x++){
    t=i=0;
    while(i<nrcif || t>0){
      t=t+2*v[i];
      v[i]=t%10;
      t/=10;
      i++;
    }
    if(i>nrcif)
      nrcif=i;
  }
  fclose(fin);

  for(i=nrcif-1;i>=0;i--)
    fprintf(fout, "%d", v[i]);
  fprintf(fout, "\n");
  fclose(fout);
  return 0;
}