Помогите пожалуйста!
Дана строка, содержащая слова, разделенные одним или несколькими пробелами. Написать программу, заменяющую каждый пробел парой символов "!?". Паскаль
Дана строка, содержащая слова, разделенные одним или несколькими пробелами. Написать программу, заменяющую каждый пробел парой символов "!?". Паскаль
Answers & Comments
s:string; i:integer;begin
readln(s);
while (pos(' ',s)<>0) do
begin
i:=pos(' ',s);
delete(s,i,1);
insert('!?',s,i);
end;
writeln(s);
readln;
end.