N! / (N-M) !

Pascal ABC. Составить программку, буду благодарен.

Question

Информатика

Болеслава

26 апреля, 22:09

N! / (N-M) !

Pascal ABC. Составить программку, буду благодарен.

+4

Ответы (1)

Знаете ответ?

Христоня · 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.

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

N! / (N-M) !

Pascal ABC. Составить программку, буду благодарен.