var s : string; symb : char; i : longint; begin readln(s); readln(symb); if pos(symb,s)=0 then writeln('в этом слове нет этого символа') else begin i: =0; while pos(symb,s)< > 0 do begin write(pos(symb,s)+i,' '); i: =i+1; delete(s,pos(symb,s),1); end; end; writeln; writeln(i); end.
Ответ дал: Гость
1 способ.
сначала переправляются мальчик и взрослый. потом этот же мальчик оотправляется обратно и переправляет второго взрослого. а затем мальчик возвращается, берёт второго мальчика, и они плывут на другой берег.2 способ.
сначала взрослый и мальчик переправляются через реку. обратно плывёт мужчина. потом этот мужчина берёт второго мальчика и они вместе переправляются через реку. мальчик плывтобратно и вместе со вторым мужчиной переплывет на второй берег реки. вот и всё.
Популярные вопросы