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

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

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

Задать свой вопрос
1 ответ
Var s: string;   
     i: integer;
begin 
read(S); 
i:=1; 
while ilt;=length(s) do begin 
if s[i]='.' then insert(' ',s,i+1); 
inc(i); 
end;
writeln(s);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт