Pagini recente » Cod sursa (job #1676967) | Cod sursa (job #140578) | Cod sursa (job #2159329) | Cod sursa (job #677794) | Cod sursa (job #780107)
Cod sursa(job #780107)
#include <stdio.h>
FILE *f,*g;
long max1,max,l,ss,nr1,k,rs,ii,n,p,d,i,factor,j,a[5000001],v[5000001],s[10001],r,c1,c2,c3,c4,c5,c6;
int main ()
{
f=fopen("pascal.in","r");
g=fopen("pascal.out","w");
fscanf(f,"%ld",&r);
fscanf(f,"%ld",&d);
if (d!=1){
if ((r-1)%2==0)l=r/2;
else l=(r-1)/2+1;
for (j=1;j<=l;j++){
for(k=2;k<=max;k++)v[k]=0;
//pas1
for (i=r;i>r-j;i--){
p=i;
factor=2;
while (p%2==0){
v[2]++;
p=p/2;
}
factor=3;
while (p!=1)
{
while (p%factor==0){
v[factor]++;
p=p/factor;
}
factor=factor+2;
if (factor>max)max=factor;
}
}
for(k=2;k<=max;k++)a[k]=0;
//pas2
for (i=1;i<=j;i++){
p=i;
factor=2;
while (p%2==0){
a[2]++;
p=p/2;
}
factor=3;
while (p!=1)
{
while (p%factor==0){
a[factor]++;
p=p/factor;
}
factor=factor+2;
if (factor>max)max=factor;
}
}
//dif
for(k=1;k<=max;k++)
{
if (a[k]!=0)v[k]=v[k]-a[k];
}
//inmultire
for(k=1;k<=max1;k++)s[k]=0;
s[1]=1;
n=1;
for(k=1;k<=max;k++)
while (v[k]!=0){
rs=0;
for (ii=1;ii<=n;ii++)
{
s[ii]=s[ii]*k;
s[ii]=s[ii]+rs;
rs=s[ii]/10;
s[ii]=s[ii]%10;
if (rs!=0 && s[ii+1]==0)n++;
if (n>max1)max1=n;
}
v[k]--;
}
//rez
if ((r-1)%2==1){
if (d==2) {if (s[1]%2==0)c2++;if (j<l && s[1]%2==0)c2++;}
if (d==3) {ss=0;for(k=1;k<=10000;k++) ss=ss+s[k];
if (ss%3==0)c3++;if (j<l && ss%3==0)c3++;}
if (d==4) {nr1=s[2]*10+s[1];if (nr1%4==0)c4++;if (j<l && nr1%4==0)c4++;}
if (d==5) {if (s[1]%5==0)c5++;if (j<l && s[1]%5==0)c5++;}
if (d==6) {ss=0;for(k=1;k<=10000;k++) ss=ss+s[k];
if(ss%3==0 && s[1]%2==0)c6++;if (j<l && ss%3==0 && s[1]%2==0)c6++;}
}
else {
if (d==2) {if (s[1]%2==0)c2++;if (j<=l && s[1]%2==0)c2++;}
if (d==3) {ss=0;for(k=1;k<=10000;k++) ss=ss+s[k];
if (ss%3==0)c3++;if (j<=l && ss%3==0)c3++;}
if (d==4) {nr1=s[2]*10+s[1];if (nr1%4==0)c4++;if (j<=l && nr1%4==0)c4++;}
if (d==5) {if (s[1]%5==0)c5++;if (j<=l && s[1]%5==0)c5++;}
if (d==6) {ss=0;for(k=1;k<=10000;k++) ss=ss+s[k];
if(ss%3==0 && s[1]%2==0)c6++;if (j<=l && ss%3==0 && s[1]%2==0)c6++;}
}
}
if (d==2) fprintf(g,"%ld",c2);
if (d==3) fprintf(g,"%ld",c3);
if (d==4) fprintf(g,"%ld",c4);
if (d==5) fprintf(g,"%ld",c5);
if (d==6) fprintf(g,"%ld",c6);
fclose(g);
return 0;
}
else fprintf(g,"%ld",r+1);
fclose(g);
return 0;
}