Cod sursa(job #288640)
Utilizator | Data | 25 martie 2009 23:06:59 | |
---|---|---|---|
Problema | Pascal | Scor | 20 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.41 kb |
var f,g:text;
mm,i,ct,a,b:longint;
function comb(n,k:longint):longint;
begin
comb:=1;
if (n>1) and (k>0) and (n>k) then
comb:=comb(n-1,k-1)+comb(n-1,k)
else
comb:=1;
end;
BEGIN
assign(f,'pascal.in');
reset(f);
read(f,a,b);
close(f);ct:=0;
for i:= 0 to a do
begin
mm:=comb(a,i);
if mm mod b = 0 then
ct:=ct+1;
end;
assign(g,'pascal.out');
rewrite(g);
writeln(g,ct);
close(g);
END.