Cod sursa(job #187558)

Utilizator raica_cristiraica dumitru cristian raica_cristi Data 4 mai 2008 18:05:21
Problema Fractii Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.17 kb
#include<fstream.h>
#include<math.h>

ifstream fin ("fractii.in");
ofstream fout ("fractii.out");

int main ()
{
    long long a,n,m,k,nr,i,w,x,l,o,u,q,p;
    fin>>k;
    l=2;
    m=0;
    long long unsigned b[k];
    b[1]=b[2]=b[3]=2;
    u=1;
    for(i=1;i<=k;i++)
    b[i]=2;
    while(q!=0)
   {q=0;
              for(i=u+1;i<=k;i++)
              {if(b[i]!=1)
              {u=i;
              q++;
              break;}}
              for(i=u+u;i<=k;i+=u)
              b[i]=1;
              }
    nr=0;
    for(i=1;i<=k+1;i++)
    if(b[i]==2)
    b[++nr]=i;
     for(i=1;i<=k;i++)
     {
                      for(l=1;l<=k;l++)
                      {
                           for(p=2;p<=nr;p++)
                          { if(i%b[p]==0 && l%b[p]==0 || i==1 || l==1)
                           {    m++;
                           break;}
                          if(b[p]>k)
                           break;}
                           }}        
          
              fout<<m;
              //   for(i=1;i<=nr;i++)
                //                 fout<<"\n"<<b[i]<<" "<<i;
             return 0;
                 }