Сколько трехбуквенных слов, осмысленных, можно составить из карточек, на которых записаны буквы: М, О, К, Е, К, Л, О, А, П, В? Б
Ромалич [7]
МАК
МЕЛ
ВАЛ
КОМ
КАЛ
5 слов, более невозможно, так как пропадает смысл и букв требуется больше.
3:
oooo|oooo - в одном из первых 4-х? → да/нет → узнаём, в 1-4 или 5-8 мёд, лишние горшки убираем.
оо|оо - в одном из первых двух (из выбранной ранее половины)? → да/нет.
o|o - в первом (из ещё в 2 раза уменьшенном предыдущим вопросом интервале)? → да/нет → узнаём, где находится мёд
Program p1;
var
a:array[1..7,1..7] of byte;
i,j:byte;
begin
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
if i<=4 then
if (j>=i) and (j<=8-i) then a[i,j]:=1 else a[i,j]:=0
else
if (j<=i) and (j>=8-i) then a[i,j]:=1 else a[i,j]:=0;
Write(a[i,j]:2)
end;
Writeln
end
end.
<em><u>Результат выполнения программы:</u></em>
1 1 1 1 1 1 1
0 1 1 1 1 1 0
0 0 1 1 1 0 0
0 0 0 1 0 0 0
0 0 1 1 1 0 0
0 1 1 1 1 1 0
1 1 1 1 1 1 1
program p2;
var
a:array[1..6,1..6] of byte;
i,j:byte;
begin
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=i+j-1;
if a[i,j]>6 then a[i,j]:=a[i,j]-6;
Write(a[i,j]:2)
end;
Writeln
end
end.
<em><u>Результат выполнения программы:</u></em>
1 2 3 4 5 6
2 3 4 5 6 1
3 4 5 6 1 2
4 5 6 1 2 3
5 6 1 2 3 4
6 1 2 3 4 5
2^2=4-глубина цвета
Ответ 4