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

Question

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

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

Answer 1

Var s1,s2:string; i:integer;
Begin
 readln(s1);
for i:=1 to length(s1) do
s2:=s2+s1[i]+' ';
writeln(s2);
readln;
end.

Comments

Разве действие не должно повторяться?

---

for - это действие повторяет

---

сорри не правельно решил, прочитал не так, там после точки, а я сделал после каждого символа)