Добавить запятые в строку

@jojololo · Регистрация: 25.11.2013

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

Нужно поставить кому после каждых трех чисел например
partition.in partition.out
1234 1,234

12345678 12,345,678

100 100

@Puporev · 01.12.2013, 12:35

Pascal

uses  crt;
var s:string;
    i:byte;
begin
writeln('Введите натуральное число любой длины');
read(s);
i:=1;
while i<=length(s)-2 do
if (i<>1)and((length(s)+1-i)mod 3=0)then
 begin
  insert(',',s,i);
  i:=i+2
 end
else i:=i+1;
write(s)
end.

@jojololo 0 / 0 / 0 Регистрация: 25.11.2013 Сообщений: 8
		1
	Добавить запятые в строку 01.12.2013, 12:17. Показов 1117. Ответов 1 Метки нет (Все метки) Нужно поставить кому после каждых трех чисел например partition.in partition.out 1234 1,234 12345678 12,345,678 100 100 0

	01.12.2013, 12:35

Добавить запятые в строку

Решение