Вычислить число сочетаний ,где N, M - натур. числа, N M.
Var N, M: Byte; C: Longint;
Function Fact (K: Byte): Longint;
Var F: Longint; i:Byte;
Begin
F:=1;
For i:=2 to K do F;
Fact:=F
End;
Begin
Repeat
Write('Введи N, M (N>=M):');
Readln(N,M)
Until N>=M;
C := Fact(N) Div (Fact(M)*Fact(N-M));
Writeln('Число сочетаний из ', N,' по ',M,' = ',C)
End.
Помогите с задачами пожалуйста.
3. Даны две матрицы из целых чисел А(4,5), В(5,4). Поменять местами максимальные элементы матриц, считая их единственными.