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

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

Question

Лаврюха

19 января, 21:52

+1

Ответы (1)

Знаете ответ?

Витаня · 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.

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