N!/(N-M)! Pascal ABC.Составить программку,буду благодарен.

Question

N!/(N-M)!
Pascal ABC.Составить программку,буду благодарен.

Answer 1

Var
C,N,M,i:integer;
Begin
C:=1;
Write('N = ');ReadLn(N);
Write('M = ');ReadLn(M);
Write(N,'! / (',N,'-',M,')! = ');
For i:= 2 to (N-M) do
 C:=C*i;
For i:= 2 to N-1 do
 N:=N*i;
Write(N/C);
End.