Cod sursa(job #29351)

Utilizator MisuDragan Mihai Misu Data 9 martie 2007 09:18:53
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.47 kb
#include<fstream.h>
#include<conio.h>

int main()
{
clrscr();
long  slasktratt,i,j,k,a,z;
ifstream f("fractii.in");
ofstream g("fractii.out");
f>>a;
slasktratt=0;
for (i=1;i<=a;i++)
{
for (j=1;j<=a;j++)
{
z=1;

for (k=2;k<=i;k++)
{
if ((i%k==0)&&(j%k==0)) {z=0;break;}
//cout<<i<<" "<<j<<" "<<z<<endl;
}

for (k=2;k<=i;k++)
{
if ((i%k==0)&&(j%k==0)) {z=0;break;}
}

if (z) slasktratt++;
}
}
g<<slasktratt;
f.close();
g.close();
return 0;
}