Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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