Заданная строка, состоящая из цифр разделенных одним или несколькими пробелами

@dimasyniak · Регистрация: 09.11.2014

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

Заданная строка, состоящая из цифр разделенных одним или несколькими пробелами. Получить представление каждого числа в виде последовательности цифр и пробелов, которые отделяют группы по три цифры начиная с права, например для 14567890 получается 14_567_890.

@APALoff · 09.12.2014, 12:18

Pascal

Procedure NumEdit(Var S : String);
Var i,k : Byte;
Begin
  k:=0;
  For i:=Length(S) downto 1 do
  Begin
    If S[i] in ['0'..'9'] then Inc(k) else k:=0;
    If k>3 then
    Begin
      Insert('_',S,i+1);
      k:=1;
    end;
  end;
end;

@dimasyniak 0 / 0 / 0 Регистрация: 09.11.2014 Сообщений: 11
		1
	Заданная строка, состоящая из цифр разделенных одним или несколькими пробелами 07.12.2014, 17:40. Показов 1547. Ответов 1 Метки нет (Все метки) Заданная строка, состоящая из цифр разделенных одним или несколькими пробелами. Получить представление каждого числа в виде последовательности цифр и пробелов, которые отделяют группы по три цифры начиная с права, например для 14567890 получается 14_567_890. 0

Опции темы

Заданная строка, состоящая из цифр разделенных одним или несколькими пробелами

Решение