Прошу решите ** PascalABC или Phyton Дано натуральное число. Требуется разделить запятыми...

Question

Прошу решите на PascalABC или Phyton
Дано натуральное число. Требуется разделить запятыми тройки его цифр(считая справа).
Входные данные содержат натуральное число, не превосходящее 10 в 100
Выходные данные. То же число, разделяя тройки цифр запятыми.
Примеры:
Входные Выходные
1000 1,000
12345 12,345

Answer 1

Var n: integer;
 s: string;
begin
  write('Введите строку символов ');
  readln(s);
  n:=Length(s);
  for var i:= 1 to ((n-1) div 3) do
   insert(',',s,n-3*i+1);
  writeln(s);
end.
-----------
АБС паскаль.
типа данных для 100 цифр числа нет, поэтому вводим в строковый тип, и поэтому всё равно, что бить по три, цифры или буквы.

Comments

Спасибо