Один берег перевозит другой бере
волк капуста коза
капуста волк обратно козу
коза капуста волк
капуста волк коза
Ответ 10
Смотри, ты не можешь напрямую доехать из А в Е, видишь квадратик пустой. Значит тебе надо искать объездные пути (грубо говоря пересадки).
Ты можешь доехать из А в Б(3 км), из А в С (8км)Б из А в D (7 км). Далее смотрим сколько из пересадочных точек километров до точки Е. Из Б в Е (8 км), из С в Е (3 км) и из D в Е(5км). Можно поехать с 2-мя пересадками, например из А в Б, потом из Б в С, потом из С в Е
Рассчитываем все возможные перемещения:
1)из А в Б а потом в Е
3+8=11
2) А-С-Е=8+3=11
3)из А в Б из Б в С и из С в Е
3+4+3=10
1) <span>1011012 - 111112=11100
2) </span>10110(2)+34(8)+15(1)+0(10)+0(10)=56(<span>10)
3) </span><span>1F116=11111000100010110</span>
Var
a : array['a'..'z'] of integer;
t : array['a'..'z'] of boolean;
m : integer;
c : char;
begin
m := 0;
for c := 'a' to 'z' do
a[c] := 0;
repeat
for c := 'a' to 'z' do
t[c] := false;
read(c);
while (c <> ',') and (c <> '.') do
begin
if not t[c] then
begin
a[c] := a[c] + 1;
if a[c] > m then
m := a[c];
t[c] := true
end;
read(c)
end
until c = '.';
for c := 'a' to 'z' do
if a[c] = m then
write(c,' ')
<span>end.</span>