Замена символа

@triatri3 · Регистрация: 16.11.2016

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

Пользователь вводит небольшой текст(хватит и около 200-250 символов), нужно вместо пробела вставить запятую и пробел( вместо " " , нужно ", "

@Puporev · 22.12.2016, 10:54

Pascal

1 2	for i:=length(s) downto 1 do if s[i]=' ' then insert(',',s,i);

@ZX Spectrum-128 · 22.12.2016, 10:56

Pascal

var
  s: string;
  i: integer;
 
begin
  readln(s);
  for i := length(s) downto 1 do
    if s[i] = ' ' then
      insert(',', s, i);
  writeln(s);
end.

@Puporev · 22.12.2016, 10:58

ZX Spectrum-128,
Здесь

Pascal

1	insert(', ', s, i);

пробел не нужен, он уже есть.

@ZX Spectrum-128 · 22.12.2016, 11:00

Puporev, спасибо, не учел. Сейчас исправлю.

@triatri3 11 / 12 / 8 Регистрация: 16.11.2016 Сообщений: 892
		1
	Замена символа 21.12.2016, 22:33. Показов 1163. Ответов 4 Метки нет (Все метки) Пользователь вводит небольшой текст(хватит и около 200-250 символов), нужно вместо пробела вставить запятую и пробел( вместо " " , нужно ", " 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	22.12.2016, 11:00	5
	Puporev, спасибо, не учел. Сейчас исправлю. 0

Замена символа

Решение