Question

Найдите ошибку в (паскале ) программе пожалуйста

Answer 1

var m,n,u,r,o: integer;
c: real;
procedure factorial(a:integer; var w:integer);
var i:integer;
begin
w:=1;
for i:=2 to a do w:=w*i;
end;
begin
writeln('Введите целые числа m и n (m>n):');
write('m = ');
readln(m);
write('n = ');
readln(n);
factorial(m,u);
factorial(m-n,r);
factorial(n,o);
//число сочетаний из m объектов по n
c:=u/(r*o);
writeln('C = ',c:5:0);
end.

Пример:
Введите целые числа m и n (m>n):
m = 4
n = 2
C = 6