Cod sursa(job #133758)

Utilizator Anamaria20Cotirlea Anamaria Anamaria20 Data 9 februarie 2008 17:39:26
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
#include <stdio.h>
FILE* f;
long int n;
long int p,q;
long int cat;
main()
{
	f=fopen ("fractii.in","r");

	fscanf (f,"%ld",&n);

	fclose (f);

	for (p=1;p<=n;p++)
	{
		for (q=1;q<=n;q++)
		{
			if (p%q>0)
				cat++;

			if (p%q==0&&p==q)
				cat++;
		}
	}

	f=fopen ("fractii.out","w");

	fprintf (s,"%ld\n",cat);

	fclose (f);

}