Cod sursa(job #2232441)

Utilizator AlexPascu007Pascu Ionut Alexandru AlexPascu007 Data 19 august 2018 11:40:01
Problema Pascal Scor 70
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include <fstream>
using namespace std;
ifstream fin("pascal.in");
ofstream fout("pascal.out");
int r,d,i,f[6][5000010],a[6],b[6],sol;
int main() {
	fin>>r>>d;
	for (i=1;i<=r;i++) {
		if (i%2==0)
			f[2][i]=f[2][i/2]+1;
		if (i%3==0)
			f[3][i]=f[3][i/3]+1;
		if (i%5==0)
			f[5][i]=f[5][i/5]+1;
	}
	if (d%2==0)
		a[2]++;
	if (d%3==0)
		a[3]++;
	if (d==4)
		a[4]++;
	if (d==5)
		a[5]++;
	for (i=1;i<=r;i++) {
		b[2]+=f[2][r+1-i]-f[2][i];
		b[3]+=f[3][r+1-i]-f[3][i];
		b[5]+=f[5][r+1-i]-f[5][i];
		if (b[2]>=a[2]&&b[3]>=a[3]&&b[5]>=a[5])
			sol++;
	}
	fout<<sol;
	return 0;
}