Guest User

Untitled

a guest
Oct 18th, 2014
51
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.25 KB | None | 0 0
  1. const N = 10;
  2. M = 6;
  3. var A : array [1..N, 1..M] of integer;
  4. i, j : integer;
  5. begin
  6.  
  7. for i := 1 to N do A[i, M] := 1;
  8. for j := 1 to M do A[N, j] := 1;
  9.  
  10. for i := 1 to N do
  11. for j := 1 to M do
  12. A[i,j] := A[i+1,j] + A[i,j+1];
  13. writeln(A[1,1]);
Advertisement
Add Comment
Please, Sign In to add comment