Каждый символ "?" удвоить. Каждый символ, стоящий перед "!", заменить заданным символом

Alexander 1997

Каждый символ ? удвоить. Каждый символ, стоящий перед !, заменить символом, введенным с клавиатуры.
1 ответ

Alexander 1997

Каждый символ ? удвоить
For i:=Length(S) downto 1 do
  If S[i]='?' then Insert('?',S,i);
Каждый символ, стоящий перед !, заменить символом, введенным с клавиатуры.
Readln(Ch);
For i:=2 to Length(S) do
  If S[i]='!' then S[i-1]:=Ch;