Pascal.

1) Удалить из строки все символы пробела.

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

Var s, s1, s2:string; i:integer;

begin

writeln ('Введите строку:') ;

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. Вышелзайчик. Погулять.