Сравниваешь a и b, большее\меньшее сохраняешь как x
сравниваешь x и с, большее\меньшее сохраняешь как x
x-твое искомое число
(начало)
/ввод a,b,c/
/вывод max(min(a;b),min(b;c),min(a;c))/
(конец)
Var
a: array [1..4] of char;
i: integer;
begin
a[1] := 'S';
a[2] := 'I';
a[3] := 'M';
a[4] := 'A';
for i := 1 to 4 do
write(ord(a[i]) - 64, ' ');
end.
Сначала нужно переправить козу, затем вернуться за капустой, переправить капусту и забрать козу. Потом переправить волка, ну а потом уже козу.