Cod sursa(job #290085)
Utilizator | Data | 27 martie 2009 13:34:23 | |
---|---|---|---|
Problema | Pascal | Scor | 10 |
Compilator | fpc | Status | done |
Runda | aa | Marime | 0.44 kb |
var f,g:text;
mm,i,ct:integer;
a,b:integer;
function comb(n,k:integer):int64;
begin
comb:=1;
if (n>=0) 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 comb(a,i) mod b = 0 then
ct:=ct+1;
end;
assign(g,'pascal.out');
rewrite(g);
writeln(g,ct);
close(g);
END.