Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.