Cod sursa(job #161214)
| Utilizator |  Marius Gavrilescu Marius96 |
Data | 17 martie 2008 19:02:19 |
|---|---|---|---|
| Problema | Pascal | Scor | 20 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
var r,y,i:longint; d:byte; fis:text;
function f(x:longint):longint;
var r,i:longint;
begin
r:=1;
for i:=2 to x do r:=r*i;
f:=r;
end;
begin
assign(fis,'pascal.in');reset(fis);
read(fis,r,d);
close(fis);
for i:=0 to r do if (f(r) div (f(r-i)*f(i))) mod d=0 then y:=y+1;
assign(fis,'pascal.out');rewrite(fis);
writeln(fis,y);
close(fis)
end.
