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

Объяснение кода листинга программы

  1. Подключение пространства имен System.Globalization.
  2. Объявление переменной n типа integer и присвоение ей значения 12345791.
  3. Создание переменной nfi типа NumberFormatInfo и присвоение ей значения System.Globalization.CultureInfo.InvariantCulture.NumberFormat.Clone как NumberFormatInfo.
  4. Присвоение свойству NumberDecimalDigits переменной nfi значение 0.
  5. Присвоение свойству NumberGroupSeparator переменной nfi значение ' '.
  6. Вывод строкового представления числа n с использованием переменной nfi в качестве формата.

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы