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

Question

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

---

Comments

считать выражения

---

например c = a! .где а =5. То есть с = 1*2*3*4*5

---

если считать факториал, то зачем именно процедура и почему она вызывается трижды и еще считается с -непонятно что...

---

процедуру это обязательно

---

трижды потому что там будет три разных числа

---

с это обычный пример . но чтобы его посчитать нужно сначала факториал посчитать

---

я так подозреваю что о сочетаниях идет речь, тап почему в формуле С не написать просто С:=u/(r*o)

---

попробую. Спасибо

---

получилось?

---

что при выводе С за формат указан?

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