function fact_from_to(f, t:integer): longint;
var
rez: longint;
i: integer;
begin
rez := 1;
for i := f to t do
rez := rez * i;
fact_from_to := rez;
end;
VAR
n, m, m2, buf, c, z: integer;
BEGIN
writeln ('Input n m');
readln(n, m);
m2 := n - m;
if (m2 < 1) then
begin
writeln ('Error. N <= M');
halt;
end;
if (m2 > m) then
begin
buf := m2;
m2 := m;
m := buf;
end;
c := fact_from_to(m+1, n);
z := fact_from_to(1, m2);
writeln ('Rezult = ', c/z:10:2);
END.
[Pascal] Вычисления n! (факториала)
Всем привет!!!
Помогите решить задание,мне очень нужно,пожалуйста.
1)разработайте програму вычисления значения выражения
n!/(m!*(n-m)!)
2)дано два целих числа n1 и n2 .розработайте програму определения факториала каждого из них.
[COLOR=Red]Получаешь нарушения за размещение темы не в соответствующем разделе. В следущий раз вообще могу удалить за такие "ошибки". Читай правила разделов Паскаль и Студентам. Модератор.[/COLOR]
Помогите решить задание,мне очень нужно,пожалуйста.
1)разработайте програму вычисления значения выражения
n!/(m!*(n-m)!)
2)дано два целих числа n1 и n2 .розработайте програму определения факториала каждого из них.
[COLOR=Red]Получаешь нарушения за размещение темы не в соответствующем разделе. В следущий раз вообще могу удалить за такие "ошибки". Читай правила разделов Паскаль и Студентам. Модератор.[/COLOR]