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

@wnmkr · Регистрация: 13.11.2012

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

@CodeR · 04.12.2012, 14:11

Pascal

Var s:string;
    i:byte;
Begin
    write('Введите строку: ');readln(s);
    For i:=1 to Length(s) do
     if (s[i]=' ') then s[i]:='.';
    writeln('Полученная строка: ',s);
    readln;
End.

Если предполагается что между словами один пробел)

@wnmkr 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 71
		1
	Строки. Вывести строку, содержащую слова, разделенные одним символом "." 04.12.2012, 13:30. Показов 1111. Ответов 1 Метки нет (Все метки) Дана строка, состоящая из латинских слов, разделенных пробелами. Вывести строку, содержащую эти же слова, но разделенные одним символом "." (точка). В конце точку не ставить. 0

Опции темы

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

Решение