Какие из приведенных ниже подпрограмм вычисляют биномиальный коэффициент (С_n^k = n!/k!(n-k)!) определяемый следующим образом: С_n^k = 0, если k > n; С_n^k = 1, если k = 0 или k = n; С_n^k = С_n-1^k + С_n-1^k-1 в остальных случаях.

Правильный ответ:

• # Какой оператор нужно вставить вместо [???], чтобы приведенный ниже отрывок программы правильно менял местами третий и четвертый элементы двусвязного линейного списка, заданного указателем на голову head?{type ssylka = ^spisok; spisok = record znach: array[1..1000]of integer; next,prev: ssylka end; var head,p: ssylka; } p:= head^.next^.next; p^.prev^.next:= p^.next; p^.next:= p^.next^.next; p^.prev^.next^.next:= p; p^.next^.prev^.prev:= p^.prev; [???]; p^.prev:= p^.prev^.next;
• # Какой метод сортировки реализует этот фрагмент программы? for i:= 2 to N do begin x:= a[i] for j:= i-1 downto 1 do if a[j]>x then a[j+1]:= a[j] else break a[j+1]:= x; end;
• # Переменные каких типов можно выводить в текстовый файл при помощи команд write() или writeln()?
• # Какое значение будет храниться в поле a записи r1 после выполнения следующего блока? var a: integer; r1: record a: byte; ... end; r2: record a: shortint; ... end; begin a:= 0; with r1 do begin r2.a:= -10; with r2 do begin a:= 100; r1.a:= -a; end end; a:= 100; end.
• # Описанные ниже подпрограммы function C: boolean; forward; function D: boolean; forward; procedure A; begin x:= c(x); y:= d(y); end; function B: boolean; begin x:= c(x); end; function C; begin z:= c(z); end; function D; begin z:= d(z); end;