Pascalabc. вставить после каждого слова исходной строки, заканчивающегося на букву «о», слово «ого». уже видел решение этой , но там программа выполнялась только когда после символа "о" стоял пробел. т.е. когда слово с "о" на конце было последним и нужно было нажать enter для окончания ввода, программа не выполнялась, требовался пробел. если хотите что-либо уточнить, задайте вопрос, но только по делу
begin
var a:=ReadlnString('->').ToWords;
var s:='';
foreach var w in a do begin
s+=w+' ';
if Pos(w.Right(1),'оО')>0 then s+='ого '
end;
Writeln(s);
end.
Пример
-> У нас столько всего интересного есть и зеленого и красного
У нас столько ого всего ого интересного ого есть и зеленого ого и красного ого