Cod sursa(job #492011)
Utilizator | Bejan George George515600 | Data | 13 octombrie 2010 10:39:28 |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.45 kb |
var f,g:text;
r,j,p,x,s,t,m:longint;
d:byte;
o:longint;
begin
assign(f,'pascal.in');
reset(f);
assign(g,'pascal.out');
rewrite(g);
readln(f,r,d);
close(f);
o:=0;
for j:=1 to r do
begin
s:=1;
t:=1;
for p:=(r-j)+1 to r do
s:=s*p;
for x:=1 to j do
t:=t*x;
m:=s div t;
if t<> 0 then
if m mod d=0 then inc(o);
end;
writeln(g,o);
close(g);
end.