/************************/
/* soubor FACT_R.C	*/
/* faktorial rekursi	*/
/************************/
#include <stdio.h>

double fact(long n)
{
 if (n == 0l)
   return 1.0F;
 else
   return n * fact(n-1);
}

int main(void)
{
 static long n;
 printf("\nPro vypocet faktorialu zadej prirozene cislo n:");
 scanf("%ld", &n);
 printf("%ld! = %lf\n", n, fact(n));
 return 0;
}