Записать число с пробелами между группами по три цифры начиная справа - PascalABC.NET
Формулировка задачи:
Дано натуральное число n . Получить это же число в виде комбинации цифр и пробелов : пропуски разделяют между собой группы по три цифры , начиная справа . Например: если n = 12345791 , то получим n = 12345791. Очесь срочно помогите плиз)
Решение задачи: «Записать число с пробелами между группами по три цифры начиная справа»
textual
Листинг программы
uses System.Globalization; var n: integer; begin n := 12345791; var nfi: NumberFormatInfo := System.Globalization.CultureInfo.InvariantCulture.NumberFormat.Clone as NumberFormatInfo; nfi.NumberDecimalDigits := 0; nfi.NumberGroupSeparator := ' '; writeln(n.ToString('n', nfi)) end.
Объяснение кода листинга программы
- Подключение пространства имен System.Globalization.
- Объявление переменной n типа integer и присвоение ей значения 12345791.
- Создание переменной nfi типа NumberFormatInfo и присвоение ей значения System.Globalization.CultureInfo.InvariantCulture.NumberFormat.Clone как NumberFormatInfo.
- Присвоение свойству NumberDecimalDigits переменной nfi значение 0.
- Присвоение свойству NumberGroupSeparator переменной nfi значение ' '.
- Вывод строкового представления числа n с использованием переменной nfi в качестве формата.