Cod sursa(job #593626)

Utilizator vlad.doruIon Vlad-Doru vlad.doru Data 3 iunie 2011 19:22:45
Problema Pascal Scor 90
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.61 kb
#include <fstream>

using namespace std;

ifstream in("pascal.in");
ofstream out("pascal.out");

int r,i;

int exp(int x,int y){
	int m=0;
	while(x%y==0){
		m++;
		x=x/y;
	}
	return m;
}

int main(){
	int i,T=0,T1=0,rez=0,k,ok=0,d,d1;
	in>>r>>d;
	if(d==4){
		d=2;
		for(i=0;i<r;i++){
			T=T+exp(r-i,d)-exp(i+1,d);
			if(T>=2)
				rez++;
		}
	}
	else if(d==6){
		d=2;
		d1=3;
		for(i=0;i<r;i++){
			T=T+exp(r-i,d)-exp(i+1,d);
			T1=T1+exp(r-i,d1)-exp(i+1,d1);
			if(T>=1 && T1>=1)
				rez++;
		}
	}
	else{
		for(i=0;i<r;i++){
			T=T+exp(r-i,d)-exp(i+1,d);
			if(T>=1)
				rez++;
		}
	}
	out<<rez;
	return 0;
}