Advertisement
Guest User

Untitled

a guest
Feb 22nd, 2017
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.49 KB | None | 0 0
  1. var
  2. i,j:longint;
  3. ans,a,h,b,n,k,q,p:int64;
  4. begin
  5. read(n,k,h);
  6. //if (k div h=n) and (k mod h=0) then begin writeln(1);halt;end;
  7.  
  8. p:=2;
  9. q:=2;
  10. a:=1;
  11. for i:=1 to n+k-1 do
  12. begin
  13. a:=a*i;
  14. while (p<n) and (a mod p=0) do
  15. begin
  16. a:=a div p;
  17. inc(p);
  18. a:= a mod 1000000007;
  19. end;
  20.  
  21. while (q<n) and (a mod q=0) do
  22. begin
  23. a:=a div q;
  24. inc(q);
  25. a:= a mod 1000000007;
  26. end;
  27. end;
  28. writeln(a mod 1000000007);
  29. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement