Cod sursa(job #492007)
Utilizator | Data | 13 octombrie 2010 10:13:35 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.43 kb |
var f,g:text;
r,j,p,x,s,t,m:longint;
d:byte;
o:integer;
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 m mod d=0 then inc(o);
end;
writeln(g,o);
close(g);
end.