Написать программу вычисления величины B = m(m-1)(m-2) … (m-(n-1)) , где m, n заданы (m больше n, m,n – натуральны числа).
Написать программу вычисления величины
B = m(m-1)(m-2) … (m-(n-1))
,
где
m, n заданы
(m>n, m,n – натуральны
числа).
Гость
Ответ(ы) на вопрос:
ГостьVAR
n, m, ans, i: UInt64;
BEGIN
Read(m, n);
ans := m;
For i := 1 to (n-1) do
ans := ans*(m - i);
Write(ans);
END.
Не нашли ответ?
Похожие вопросы