Программа: pascal abc. Задание: дана строка, написать программу, вставляющую после каждой...

Question

Программа: pascal abc.

Задание: дана строка, написать программу, вставляющую после каждой точки символ пробела.

Answer 1

Var s: string;   
     i: integer;
begin 
read(S); 
i:=1; 
while i<=length(s) do begin  <br>if s[i]='.' then insert(' ',s,i+1); 
inc(i); 
end;
writeln(s);
end.