Строки, замена каждой буквы Опции

[forMator]

У меня снова возник вопрос!
Дан текст. Слова разделены пробелом. В третьем слове каждую букву заменить на +.
Как сделать чтобы именно в третьем слове заменялись буквы?
И как заменить каждую буквы?
Я могу заменить только определённую букву.
Подскажите пожалуйста!

[forMator]

Вот так:

Код

Program project;
Var s:string;i:integer;
begin
writeln('stroka=');
readln(s);
i:=1;
while i<=length(s) do
if copy(s,i,1)='d' then begin
s[i]:='n';i:=i+1;
end else i:=i+1;
writeln('s=',s);
readln;
end.

Замена одной буквы во всей строке.

Сообщение отредактировано: forMator - 14.11.2006 19:13