Доброго времени суток.
У меня возникла проблема с задачей,нужно ввести перед каждым восклицательным знаком слово "Привет".Я сделал,но получилось криво:"Привет пишется у меня только перед первым "!",а надо перед каждым.....что не так?
Цитата:
Program N71;
Uses crt;
Var
s,n:string;
i:integer;
Begin clrscr;
Writeln('Введите строку');
Readln(s);
n:='Привет';
for i:=1 to length(s) do
if s[i]='!' then begin
insert(n,s,i);
end;
Writeln(s);
Readln;
End.
|