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

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

1

Ответы и объяснения

2013-12-03T15:15:58+00:00
Var s1,s2:string; i:integer;
Begin
 readln(s1);
for i:=1 to length(s1) do
s2:=s2+s1[i]+' ';
writeln(s2);
readln;
end.
Разве действие не должно повторяться?
for - это действие повторяет
сорри не правельно решил, прочитал не так, там после точки, а я сделал после каждого символа)