Cod sursa(job #1044782)

Utilizator iuli33Iuliana iuli33 Data 30 noiembrie 2013 13:07:28
Problema Pascal Scor 0
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.67 kb
#include <iostream>
#include <fstream>
using namespace std;
ifstream in("pascal.in");
ofstream out("pascal.in");
int r, d;
int div(int a, int b){
    int nr=0, aux;
    for (int i=a; i<=b; i++){
        aux=i;
        while (aux%d==0){
            nr++;
            aux=aux/d;
        }
    }
    return nr;
}

int f (int x){
    int k=0;
    if ((r-x)>x)
        k=div(r-x+1, r)-div(2, x);
    else
        k=div(x+1, r)-div(2, r-x);
    if (k>0)
        return 1;
    else
        return 0;
}

int main(){
    int ok=0;
    in>>r;
    in>>d;
    for (int i=1; i<=r-1; i++){
        if (f(i))
            ok++;
    }
    out<<ok;
    return 0;
}