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

ANTON12

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

ANTON12

var s:string;
    ch:char;
    i:byte;
begin
writeln('Введите строку, содержащую символы ! и ?');
readln(s);
write('Введите символ для вставки: ');
readln(ch);
for i:=length(s) downto 1 do
if s[i]='?' then insert('?',S,i)
else if (s[i]='!')and(i>1) then s[i-1]:=ch;
write(s);
end.


ANTON12

спасибо !!!