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 (((t[i-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 (((t[i]='О') 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.
Пример:
Введите строку: О, как прекрасно это море! Как красиво это небо О ого, как прекрасно ого это ого море! Как красиво ого это ого небо ого
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016 begin var a:=ArrRandom(15,-10,30); a.Println; var b:=ArrRandom(25,-10,30); b.Println; var ma:=a.Where(x->x.IsEven).Max; var mb:=b.Where(x->x.IsEven).Max; if ma>mb then WritelnFormat('Максимум четных 1-го массива {0} больше 2-го {1}',ma,mb) else if mb>ma then WritelnFormat('Максимум четных 1-го массива {0} меньше 2-го {1}',ma,mb) else Writeln('Максимумы четных элементов в массивах равны ',ma) end.
