Pascal.
1) Удалить из строки все символы пробела.
2) После каждого символа точки добавить пробел.

var s,s1,s2:string; i:integer;beginwriteln('Введите строку:');readln(s);s1:=s;while pos(' ',s1)>0 do delete(s1,pos(' ',s1),1);writeln('Строка без пробелов:');writeln(s1);s2:='';for i:=1 to length(s1) do if s1[i]='.' then s2:=s2+'. ' else s2:=s2+s1[i];writeln('Строка с пробелами после ".":');writeln(s2);end.Пример:Введите строку:1. 2. 3. 4. 5. Вышел зайчик. Погулять.Строка без пробелов:1.2.3.4.5.Вышелзайчик.Погулять.Строка с пробелами после ".":1. 2. 3. 4. 5. Вышелзайчик. Погулять.