Ввести строку и удвоить каждый символ "q"

[karamzin]

Ввести строку и удвоить каждый символ "q"

[Stilet]

В чем сложность?
for 1 to Длина строки if строка[i]='q' то write('qq') иначе write(строка[i])

[lamer_1]

var s:string;
    i:integer;
begin
write('Введите строку: ');
readln(s); i:=0;
while i<=length(s) do
begin
  inc(i);
  if s[i]='q' then 
  begin
    insert('q',s,i);
    inc(i,2);
  end;
end;
writeln('Результат: ',s);
end.

[JIeIIIa]

lamer_1, Ваше решение на строку "qq" выдает результат "qqq".

Вот так будет правильней

var s:string;
    i:integer;
begin
write('Введите строку: ');
readln(s); i:=0;
while i<=length(s) do
begin
  inc(i);
  if s[i]='q' then 
  begin
    insert('q',s,i);
    inc(i,1);
  end;
end;
writeln('Результат: ',s);
end.

[TinMan]

Самое простое решение все же такое:

for i:=Length(s) downto 1 do if s[i]='q' then Insert('q',s,i);