Cod sursa(job #3367197)

Utilizator maria.bertolonMaria Bertolon maria.bertolon Data 6 octombrie 2026 15:54:29
Problema Patrate2 Scor 100
Compilator c-64 Status done
Runda Arhiva de probleme Marime 0.68 kb
#include <stdio.h>
#include <stdlib.h>

#define MAXCIF 3170

char ans[MAXCIF];
int na;

void inmult( int b ){
  int i, t;

  t = i = 0;
  while( i < na || t > 0 ){
    t += b * ans[i];
    ans[i] = t % 10;
    t /= 10;
    i++;
  }

  if( i > na )
    na = i;
}

int main(){
  FILE *fin, *fout;
  int i, n;

  fin = fopen( "patrate2.in", "r" );
  fscanf( fin, "%d", &n );
  fclose( fin );

  ans[0] = 1;
  na = 1;

  for( i = 2; i <= n; i++ )
    inmult( i );

  for( i = 0; i < n * n; i++ )
    inmult( 2 );

  fout = fopen( "patrate2.out", "w" );
  for( i = na - 1; i >= 0; i-- )
    fputc( ans[i] + '0', fout );
  fclose( fout );

  return 0;
}