10-11 информатика 5+3 б дана последовательность чисел стирлинга. числа стирлинга s(n,k) определены для 0≤k≤n и удовлетворяют следующим соотношениям: s(0,0)=1, s(n,0)=0 для n> 0, s(n,n)=1 для n> 0, иначе s(n,k)=k*s(n-1,k)+s(n-1,k-1). для n=15, k=13 найти и вывести число стирлинга s(n,k).

А вот для этого и существуют рекурсивные функции!

function Stirling(n, k: longint): longint;
begin
  if k = 0 then
    if n = 0 then Stirling := 1 else Stirling := 0
  else
  if k = n then Stirling := 1
  else Stirling := k * Stirling(n - 1, k) + Stirling(n - 1, k - 1)
end;

begin
  Writeln(Stirling(15, 13))
end.

Результат выполнения программы:
4550