Cod sursa(job #382547)
Utilizator | Data | 13 ianuarie 2010 21:36:12 | |
---|---|---|---|
Problema | Fractii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.39 kb |
#include<iostream.h>
#include<fstream.h>
int main()
{
int n,i,j,k,r,a,b;
fstream f1("fractii.in",ios::in);
fstream f2("fractii.out",ios::out);
f1>>n;
k=0;
for(i=1;i!=n+1;i++)
{
for(j=1;j!=n+1;j++)
{
a=i;
b=j;
while(b!=0)
{
r=a%b;
a=b;
b=r;
}
if(a==1)
{
k++;
}
}
}
f2<<k;
f1.close();
f2.close();
return 0;
}