Cod sursa(job #1744805)

Utilizator TimitocArdelean Andrei Timotei Timitoc Data 20 august 2016 15:17:21
Problema Pascal Scor 50
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.75 kb
#include <iostream>
#include <cstdio>

using namespace std;

int power[10];
int r, d, sol;

void solve()
{
    for (int i = 1; i <= r; i++) {
		int x = i-1;
        for (int i = 2; i <= 6; i++) {
			int sus = r-x, jos = x+1;
			if (i == 4 || i == 6) continue;
            while (sus % i == 0)
				power[i]++, sus /= i;
			while (jos % i == 0)
				power[i]--, jos /= i;
        }
        if (d == 2) sol += !!(power[2]);
        if (d == 3) sol += !!(power[3]);
        if (d == 4) sol += (power[2] > 1);
        if (d == 5) sol += !!(power[5]);
        if (d == 6) sol += !!power[2] && !!power[3];
    }
}

int main()
{
	freopen("pascal.in", "r", stdin);
	freopen("pascal.out", "w", stdout);

	scanf("%d %d", &r, &d);
    solve();
    printf("%d", sol);

    return 0;
}