Процедуры и Функции, Вычислить число сочетаний Опции

[Druid]

Помогите пожалуйста с задачей.Я никак не могу найти ошибки.
Вычислить число сочетаний ,где 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). Поменять местами максимальные элементы матриц, считая их единственными.

Сообщение отредактировано: Altair - 7.01.2006 1:27

[volvo]

Druid, я не понял, что, тебе обязательно ссылку на "FAQ: Комбинаторика" привести? Сам найти ты ее что, брезгуешь? "Не царское это дело", правда?

[Druid]

Помогите с задачей:
Даны две матрицы из целых чисел А(4,5), В(5,4). Поменять местами максимальные элементы матриц, считая их единственными

[Druid]

Я в поиск заходил,все облазил но такого даже приблизительно не нашел.
Единственного я не понимаю в процедурах-это матрицы.
Помогите пожалуйста с задачей.
Даны две матрицы из целых чисел А(4,5), В(5,4). Поменять местами максимальные элементы матриц, считая их единственными.

[volvo]

Ты хотя бы пытался искать, или что-то делать сам? Что именно тебе не понятно с матрицами в процедурах?