)дана последовательность чисел стирлинга. числа стирлинга 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 ster(n,k: integer): integer; begin if k=0 then   if n=0 then ster: =1   else ster: =0 else if n=k then         ster: =1         else  ster: =k*ster(n-1,k)+ster(n-1,k-1) end; begin writeln(ster(15,13)); end.

№1 а) 0 v ¬1 = 0 v 0 = 0 б) ¬0 & 1 = 1 & 1 = 1в) 0 → ¬1 = 0 → 0 = 1 №2 a  b      ¬a  ¬avb a& (¬avb)0  0          1      1          0 0  1          1      1          0 1  0          0      0          0 1  1          0      1          1

1) не важно, какой оно длины. если оно заканчивается чётной цифрой, то оно чётно, обратное тоже верно. тупо проверяем число на чётность: если число остаток 2 = 0 то вывод.цепь("верно.") иначе вывод.цепь("не верно.") кон 2) пер массив: ряд n из цел, сч: цел; указ от сч : = 0 до n - 1 вып   если массив[сч] < 0 то массив[сч] : = -массив[сч] кон кон 3) пер массив: ряд n из цел, сч, мин_зн, мин_ном: цел; указ мин_зн : = массив[0]; мин_ном : = 0; от сч : = 1 до n - 1 вып   если массив[сч] > мин_зн то мин_зн : = массив[сч]; мин_ном : = сч кон кон