В слове, состоящем из трёх двухсимвольных слогов, опреде¬лять номер слога "ро". Если такого слога нет, то вывести соответствующее сообщение. желательно бы решение в Паскале

Question

В слове, состоящем из трёх двухсимвольных слогов, опреде¬лять номер слога "ро". Если такого слога нет, то вывести соответствующее сообщение. желательно бы решение в Паскале

Гость

Ответ(ы) на вопрос:

Accepted Answer

var s:string; k:integer; begin readln(s); k:=pos('ро',s); if k<>0 then writeln(k div 2+1) else writeln('"ро" нет :('); writeln('Нажмите Enter для выхода'); readln end.