Cod sursa(job #161214)

Utilizator Marius96Marius 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
Raporteaza aceasta sursa 
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.