Дано натуральное число. Требуется разделить запятыми тройки его цифр (считая справа). Вводится одно натуральное число, не превышающее 10^100. Вывести то же число, разделяя тройки цифр запятыми.

Question

Информатика

Нифонт

20 февраля, 06:45

Дано натуральное число. Требуется разделить запятыми тройки его цифр (считая справа). Вводится одно натуральное число, не превышающее 10^100. Вывести то же число, разделяя тройки цифр запятыми.

+3

Ответы (1)

Знаете ответ на вопрос?

Олимпий · Answer 1

Var s: string;

i: integer;

begin

write ('число: ') ; readln (s) ;

i:=length (s) - 2;

repeat

insert (',', s, i) ;

i:=i-3;

until i<3;

writeln ('новое число: ', s) ;

end.

число: 123456789654321987

новое число: 123,456,789,654,321,987