Вывести строку, содержащую слова, разделенные одним символом "." (точка)

@quso · Регистрация: 28.02.2014

Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, но разделенные одним символом "." (точка). В конце точку не ставить
сделать через процедуры.
Заранее огромное спасибо!!

@CodeR · 01.03.2014, 09:51

Pascal

Var s:string;
Procedure P(Var s:string);
Var i:byte;
Begin
    For i:=Length(s) downto 2 do
     if (s[i]=' ')and(s[i-1]=' ') then Delete(s,i,1);
    if s[1]=' ' then Delete(s,1,1);
    if s[Length(s)]=' ' then Delete(s,Length(s),1);
    While Pos(' ',s)>0 do
     s[Pos(' ',s)]:='.';
End;
Begin
    write('Введите строку: ');readln(s);
    P(s);
    writeln('Полученная строка: ',s);
    readln;
End.

@quso 0 / 0 / 0 Регистрация: 28.02.2014 Сообщений: 8
		1
	Вывести строку, содержащую слова, разделенные одним символом "." (точка) 28.02.2014, 23:39. Показов 1598. Ответов 1 Метки нет (Все метки) Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова, но разделенные одним символом "." (точка). В конце точку не ставить сделать через процедуры. Заранее огромное спасибо!! 0

Опции темы

Вывести строку, содержащую слова, разделенные одним символом "." (точка)

Решение