Cod sursa(job #2017748)

Utilizator DianaPopDiana Pop DianaPop Data 2 septembrie 2017 13:24:47
Problema Pascal Scor 100
Compilator c Status done
Runda Arhiva de probleme Marime 0.96 kb
#include <stdio.h>
int a[5000001], b[5000001], c[5000001] , r , d , i;
int p1 , p2 , p3 , x;
int main(){

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

    scanf( "%d %d" , &r , &d );

    for( i = 2 ; i <= r ; i += 2 ){
        a[i] = a[i] + a[i / 2] + 1;
    }
    for( i = 3 ; i <= r ; i += 3 ){
        b[i] =  b[i] + b[i / 3] + 1;
    }

    for( i = 5 ; i <= r ; i += 5 ){
        c[i] = c[i] + c[i / 5] + 1;
    }

    for( i = 1 ; i <= r ; i++ ){

        p1 = p1 + a[ r - i + 1 ] - a[i];
        p2 = p2 + b[ r - i + 1 ] - b[i];
        p3 = p3 + c[ r - i + 1 ] - c[i];

        if( d == 2  && p1 > 0 )
                x++;
        if( d == 3 && p2 > 0 )
                x++;
        if( d == 4 && p1 > 1 )
                x++;
        if( d == 5 && p3 > 0 )
                x++;
        if( d == 6 && p1 > 0 && p2 > 0 )
                x++;
    }

    printf( "%d", x );

    return 0;
}