Среди четырехзначных чисел выбрать те, у которых цифры различны - Turbo Pascal

Формулировка задачи:

Среди четырехзначных чисел выбрать те, у которых цифры различны. c использованием while

Решение задачи: «Среди четырехзначных чисел выбрать те, у которых цифры различны»

Листинг программы

uses crt;
var a,k:integer;
begin
clrscr;
writeln('Четырехзначные числа из разных цифр:');
a:=1230;
while a<=6789 do
 begin
  if ((a div 1000)<>(a div 100 mod 10))and((a div 1000)<>(a div 10 mod 10))and((a div 1000)<>(a mod 10))
  and((a div 100 mod 10)<>(a div 10 mod 10))and((a div 100 mod 10)<>(a mod 10))
  and((a div 10 mod 10)<>(a mod 10)) then
   begin
    write(a:8);
    k:=k+1;
    if k mod 240=0 then
     begin
      write('Press Enter');
      readln;
     end;
   end;
  a:=a+1;
 end;
readln
end.

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

В данном коде используется язык программирования Turbo Pascal. Задача заключается в выборе из четырехзначных чисел тех, у которых цифры различны. Переменные в коде:

a - четырехзначное число
k - счетчик, который увеличивается на единицу при каждом найденном числе, удовлетворяющем условию Алгоритм работы программы:
1. Выводится сообщение «Четырехзначные числа из разных цифр:»
2. Инициализируется переменная a значением 1230
3. Запускается цикл while, который выполняется до тех пор, пока значение переменной a не станет равным 6789
4. Внутри цикла проверяется условие, которое определяет, что число удовлетворяет задаче, если:
  - результат деления на 1000 не равен результату деления на 100 (первая цифра)
  - результат деления на 1000 не равен результату деления на 10 (вторая цифра)
  - результат деления на 1000 не равен результату деления на 1 (третья цифра)
  - результат деления на 100 не равен результату деления на 1 (четвертая цифра)
  - результат деления на 10 не равен результату деления на 1 (пятая цифра)
5. Если условие выполняется, то выводится значение переменной a, а значение переменной k увеличивается на единицу
6. После завершения цикла выводится сообщение «Press Enter» и считывается ввод пользователя с помощью функции readln
7. Программа завершается после ввода пользователем любого символа, кроме символа новой строки Таким образом, данный код позволяет выбрать из четырехзначных чисел те, у которых цифры различны.