N! / (N-M) !

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

Question

Информатика

Нинака

29 августа, 19:10

N! / (N-M) !

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

+5

Ответы (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. Составить программку, буду благодарен.