Cod sursa(job #1222964)

Utilizator iordache.bogdanIordache Ioan-Bogdan iordache.bogdan Data 24 august 2014 20:58:04
Problema Pascal Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.9 kb
#include <fstream>
#define DIMN 50
#define DIM 5000001

using namespace std;

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

int d2, d3, d5, p2, p3, p5;

bool ok[DIM];

int r, d, k, nr, nnr, sol;

int main () {
    f >> r >> d;
    while (d%2 == 0)
        ++d2, d/=2;
    while (d%3 == 0)
        ++d3, d/=3;
    while (d%5 == 0)
        ++d5, d/=5;
    for (int i=1; i<(r+2)/2; ++i) {
        int n = r - i + 1;
        while (n%2 == 0)
            p2+=1,n/=2;
        while (n%3 == 0)
            p3+=1,n/=3;
        while (n%5 == 0)
            p5+=1,n/=5;
        n = i;
        while (n%2 == 0)
            p2-=1,n/=2;
        while (n%3 == 0)
            p3-=1,n/=3;
        while (n%5 == 0)
            p5-=1,n/=5;
        if (p2>=d2 && p3>=d3 && p5>=d5)
            ++sol;
    }
    sol *= 2;
    if (r%2 == 0)
        --sol;
    g << sol;
    return 0;
}