Заменить пробел в предложении 2 пробелами

@vitaliy1111 · Регистрация: 30.05.2012

Author24 — интернет-сервис помощи студентам

@brunis · 23.01.2013, 01:02

Pascal

var s,s1:string;
    i:integer;
begin
  writeln('Enter: ');
  readln(s);
  For i:=1 to Length(s) do
    if s[i]=' ' then s1:=s1+'  '
                else s1:=s1+s[i];
  writeln(s1);
 
  readln
end.

@vitaliy1111 0 / 0 / 0 Регистрация: 30.05.2012 Сообщений: 58
		1
	Заменить пробел в предложении 2 пробелами 23.01.2013, 00:47. Показов 1530. Ответов 1 Метки нет (Все метки) Заменить пробел в предложении 2 пробелами 0

	23.01.2013, 01:02

Опции темы

Заменить пробел в предложении 2 пробелами

Решение