Cod sursa(job #634922)

Utilizator teo721Pavel Teo teo721 Data 17 noiembrie 2011 22:26:53
Problema Pascal Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 1.16 kb
#include<iostream>
#include<fstream>
using namespace std;
unsigned long int s=0;
int divmax(int n,int d)
{
    while(n%d==0)
    {
      n/=d;
      s++;
    }
    return 0;
}
int main()
{
    unsigned long int i,j,r,d,s1,s2,k=0;
    fstream f("pascal.in",ios::in);
    f>>r>>d;
    f.close();
    if(r%2) 
     for(i=1;i<=r/2;i++)
     {
      for(j=1;j<=r-i;j++)
        if(j%d==0)
         divmax(j,d);
      s1=s;
      s=0;
      for(j=r-i+1;j<=r;j++)
        if(j%d==0)
         divmax(j,d);
      s2=s;
      s=0;
      if(s2>s1)
       k+=2;
      }
    else
    {
     for(i=1;i<r/2;i++)
     {
      for(j=1;j<=r-i;j++)
        if(j%d==0)
         divmax(j,d);
      s1=s;
      s=0;
      for(j=r-i+1;j<=r;j++)
        if(j%d==0)
         divmax(j,d);
      s2=s;
      s=0;
      if(s2>s1)
       k+=2;
      }
      for(j=1;j<=r/2;j++)
        if(j%d==0)
         divmax(j,d);
      s1=s;
      s=0;
      for(j=r/2+1;j<=r;j++)
        if(j%d==0)
         divmax(j,d);
      s2=s;
      s=0;
      if(s2>s1)
       k++;
      }
    fstream g("pascal.out",ios::out);
    g<<k;
    g.close();
         
}