Определить, есть ли среди цифр заданного целого трехзначного числа одинаковые.

Var   a: word;   b, c, d: byte; begin   readln(a);   b : = a mod 10;   c : = a div 10 mod 10;   d : = a div 100;   writeln(b, ' ', c, ' ', d);   if ((b in [c, d]) or (c in [b, d]) or (d in [b, c])) then     writeln('yes, there are')   else     writeln('no, there aren"t'); end.

все истина т.к.если пишется "или" то достаточно чтобы что-то одно было правдой,тогда и все истинно.

 

1 способ.

сначала переправляются мальчик и взрослый. потом этот же мальчик оотправляется обратно и переправляет второго взрослого. а затем мальчик возвращается, берёт второго мальчика, и они плывут на другой берег.2 способ.

сначала взрослый и мальчик переправляются через реку. обратно плывёт мужчина.  потом этот мужчина берёт второго мальчика и они вместе переправляются через реку. мальчик плывтобратно и вместе со вторым мужчиной переплывет на второй берег реки. вот и всё.