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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.