Написать программу вычисления величины
B = m(m-1)(m-2) … (m-(n-1))
,
где
m, n заданы
(m>n, m,n – натуральны
числа).
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад