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

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

Задать свой вопрос
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 цифр числа нет, потому вводим в строковый тип, и потому всё равно, что бить по три, цифры либо буквы.

Бахтояров Женек
Спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт