# в худшем случае

в худшем случае - за десять. Правильный выбор структур данных - это уже половина решения. Итак, структуры данных и процедура их инициализации. Const Pmax=6*6*6*6; Type Post=String[4]; Var A:array[1..Pmax] of Post; B:array[1..Pmax] of boolean; cnt:integer;{счетчик числа ходов} ok:boolean;{найдено решение} procedure Init; var i,j,k,l:integer; begin for i:=1 to 6 do for j:=1 to 6 do for k:=1 to 6 do for l:=1 to 6 do A[(i-1)*216+(j-1)*36+(k-1)*6+l]:= Chr(i+Ord(‘0’))+Chr(j+Ord(‘0’))+Chr(k+Ord(‘0’))+Chr(k+Ord(‘0’)); for i:=1 to Pmax do B[i]:=true; cnt:=0;ok:=false; end; Поясним на примере идею решета. Пусть длина последовательности равна двум, а количество цветов - четырем. Ребенок загадал 32, а компьютер спросил 24. Ответ ребенка 1 0, фиксируем его в переменных kr (1) и bk(0). A B B (после анализа bk) B (после анализа kr) Результат 11 true false false 12 true true 13 true false false 14 true false false 21 true false false

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