Cod sursa(job #2787536)

Utilizator albertaizicAizic Albert albertaizic Data 23 octombrie 2021 17:28:31
Problema Patrate2 Scor 100
Compilator c-64 Status done
Runda Arhiva de probleme Marime 0.73 kb
#include <stdio.h>
#include <stdlib.h>
#define POW 27
#define Cifre 50000
int v[Cifre];
int cif;
void inm(int d){
  int r,i;
  i=0;
  r=0;
  while(i<cif || r>0){
    v[i]=v[i]*d+r;
    r=v[i]/10;
    v[i]=v[i]%10;
    i++;
  }
  if(i>cif)
    cif=i;
}
int main(){
    FILE *fin, *fout;
    int n,i,m,x;
    fin=fopen("patrate2.in","r");
    fout=fopen("patrate2.out","w");
    fscanf(fin,"%d",&n);
    v[0]=1;
    cif=1;
    for(i=2;i<=n;i++){
      inm(i);
    }
    m=n*n;
    x=1<<POW;
    while(m>=POW){
      inm(x);
      m-=POW;
    }
    while(m>0){
      inm(2);
      m--;
    }
    for(i=cif-1;i>=0;i--){
      fprintf(fout,"%d",v[i]);
    }
    fclose(fin);
    fclose(fout);
    return 0;
}