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

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

Question

Лукия

18 декабря, 20:06

+4

Ответы (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.Задание: дана строка, написать программу, вставляющую после каждой точки символ пробела.