# 22 true false false 23

22 true false false 23 true false false 24 true false false 31 true false false 32 true true 33 true false false 34 true false false 41 true true 42 true false false 43 true true 44 true false false Итак, было 16 возможных вопросов, после первого осталось четыре - работа решета. Функция, реализующая анализ элемента массива А, по значениям переменных kr и bk, имеет вид: function Pr(a,b:Post;kr,bk:integer):boolean; var i,x:integer; begin {проверка по “быкам”} x:=0; for i:=1 to 4 do if a[i]=b[i] then inc(x); if x&lt;&gt;bk then begin Pr:=false;exit;end; {проверка по “коровам”} x:=0; for i:=1 to 4 do if (a[i]&lt;&gt;b[i]) and (Pos(b[i],a)&lt;&gt;0) then inc(x); if x&lt;&gt;kr then begin Pr:=false;exit;end; Pr:=true; end; Логика - “сделать отсечение” по значению хода h. procedure Hod(h:Post); var i,kr,bk:integer; begin inc(cnt);write(cnt:2,’.’,h,’-’); readln(kr,bk); if

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа