Цитата:
Сообщение от Dodje
что не так?
|
А не так вот что: Вы не учитываете, что после каждой вставки сбивается нумерация символов строки. Вот работающий вариант программы (кириллица заменена английским по причине проблем с кодировками. Исправьте, если надо):
Код:
Uses crt;
Var
s,n:string;
i:integer;
Begin
clrscr;
Writeln('Enter the string:');
Readln(s);
n:=' Hello';
i:=0;
Repeat
Inc(i);
if s[i]='!' then
begin
insert(n,s,i);
Inc(i,Length(n));
end;
Until i=Length(s);
Writeln(s);
Readln;
End.