На языке pascal
описать рекурсивную функцию целого типа, находящую число сочетаний из n элементов по m, используя формулу
c(0, n)=c(n, n)=1, c(m, n)= c(m, n-1)+ c(m-1, n-1)
при 0 < m < n (m и n-целые параметры; n > 0, 0 < = m < = n). дано число n и пять различных значений m. вывести числа вместе с количеством рекурсивных вызовов функции, потребовавшихся для из нахождения.
Объяснение: Абсолютная звездная величина заданной звезды больше её видимой звездной величины на 16,8 - (-3,16) = 19,96 m. Яркость этой звезды, наблюдаемой с расстояния 10 пк, больше её яркости при 16,8m в 2,512^19.96 = 96382902,36 раз. Поскольку видимая яркость звезды меняется пропорционально квадрату расстояния до неё, то расстояние до звезды в √96382902,36 раз больше 10 пк. Таким образом, расстояние до звезды = 10√96382902,36 = 98174,8 пк ≈ 98,2 кпк.
Абсолютная звездная величина заданной звезды больше абсолютной звездной величины Солнца на 4,84 – (-3,16) = 8m. Разность в 8 звездных величин соответствует разности яркостей (светимостей) звезд в 2,512^8 = 1584,89 раз. Следовательно, светимость заданной звезды составляет примерно 1585 светимостей Солнца.