Cod sursa(job #2787453)

Utilizator vladburacBurac Vlad vladburac Data 23 octombrie 2021 12:55:46
Problema Patrate2 Scor 100
Compilator c-64 Status done
Runda Arhiva de probleme Marime 0.65 kb
#include <stdio.h>
#include <stdlib.h>

int v[3500], lun;
void inmultire( int a ) {
  int t, i;
  i = t = 0;
  while( i < lun || t != 0 ) {
    t = t + a * v[i];
    v[i] = t % 10;
    t /= 10;
    i++;
  }
  if( i > lun )
    lun = i;
}

int main() {
  FILE *fin, *fout;
  int n, i;
  fin = fopen( "patrate2.in", "r" );
  fscanf( fin, "%d", &n );
  fclose( fin );

  v[0] = 1;
  lun = 1;
  for( i = 2; i <= n; i++ )
    inmultire(i);
  for( i = 1; i <= n * n; i++ )
    inmultire(2);

  fout = fopen( "patrate2.out", "w" );
  for( i = lun - 1; i >= 0; i-- )
    fprintf( fout, "%d", v[i] );
  fclose( fout );
  return 0;
}