Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. Сделать для программы Паскаль! с помощью функций div и mod

Чтобы получить случайное трехзначное число и вывести его отдельные цифры через запятую в языке программирования Паскаль, можно воспользоваться операциями div и mod, а также встроенной функцией для генерации случайных чисел. Вот пример программы:

Полный код:

pascal
program RandomThreeDigitNumber;
uses
  SysUtils;
var
  randomNumber, hundreds, tens, units: Integer;
begin
  Randomize;  // Инициализация генератора случайных чисел
  randomNumber := Random(900) + 100;  // Генерация случайного трехзначного числа (от 100 до 999)
  // Извлечение цифр
  hundreds := randomNumber div 100;          // Получаем сотни
  tens := (randomNumber div 10) mod 10;      // Получаем десятки
  units := randomNumber mod 10;              // Получаем единицы
  // Вывод результата
  WriteLn('Случайное число: ', randomNumber);
  WriteLn('Цифры числа через запятую: ', hundreds, ', ', tens, ', ', units);
end.

Объяснение кода:

1. Генерация случайного числа:

   • Randomize инициализирует генератор случайных чисел.
   • Random(900) генерирует случайное число от 0 до 899, добавление 100 сдвигает диапазон к трехзначным числам (от 100 до 999).

2. Извлечение цифр:

   • div используется для целочисленного деления:
     • randomNumber div 100 дает сотни.
     • (randomNumber div 10) mod 10 дает десятки, деля число на 10 и находя остаток от деления на 10.
   • mod вычисляет остаток от деления:
     • randomNumber mod 10 дает последнюю цифру числа (единицы).

3. Вывод результатов:

   • Сначала выводится само случайное число.
   • Затем цифры числа, разделенные запятыми.

Пример работы программы:

Если сгенерировано случайное число 527, то программа выведет:

Случайное число: 527
Цифры числа через запятую: 5, 2, 7

Этот код легко читаем и использует базовые функции Паскаля.