Pascalabc. вставить после каждого слова исходной строки, заканчивающегося на букву «о», слово «ого». уже видел решение этой , но там программа выполнялась только когда после символа "о" стоял пробел. т.е. когда слово с "о" на конце было последним и нужно было нажать enter для окончания ввода, программа не выполнялась, требовался пробел. если хотите что-либо уточнить, задайте вопрос, но только по делу

169

488

Посмотреть ответы 2

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

СофияВладимировна

Информатика

4,4(17 оценок)

Program ogo; var t,s: string; n,m,i: integer; begin writeln ('введите строку: '); readln (t); n: =length(t); //длина исходной строки s: =' ого'; //вставляемый фрагмент m: =length(s); //длина вставки i: =2; while i< =n do //через while, т.к. нужно изменять счетчик вручную begin if -1]='о') or (t[i-1]='о')) and (ord(t[i])< 160)) then begin insert(s,t,i); //вставка ого; n: =length(t); //новая длина строки i: =i+1+m; //перескакиваем через вставку end else if ='о') or (t[i]='о')) and (i=n)) //проверку последнего символа пришлось вынести отдельно then begin insert(s,t,i+1); //вставка ого; n: =length(t); //новая длина строки i: =i+1+m; end else i: =i+1; end; writeln (t) end. пример: введите строку: о, как прекрасно это море! как красиво это небо о ого, как прекрасно ого это ого море! как красиво ого это ого небо ого