Cod sursa(job #2599818)

Utilizator PMI13Pop Marius Ionut PMI13 Data 11 aprilie 2020 19:18:16
Problema Factorial Scor 10
Compilator c-64 Status done
Runda Arhiva de probleme Marime 0.57 kb
#include <stdio.h>
#include <stdlib.h>

long long fact (long long p)
{
    long long n = 5, x = 25 , s ;

    if( p == 0 )
        return 1;

    n *= p;
    while( x < n)
    {
        s = n / x;
        s *= 5;
        n = n - 5;
        x *= 5;
    }

    if(p == -1)
        return p;

    return n;
}

int main()
{
    long long p, n;

    FILE *fp = fopen("fact.in","r");
    fscanf(fp ,"%lld" , &p);
    fclose(fp);

    n = fact(p);

    FILE *fi = fopen("fact.out" , "w");
    fprintf(fi , "%lld" , n);
    fclose(fi);

    return 0;
}