Question

Дано четырехзначное число. Вывести его цифры в порядке убывания (pascal)

Answer 1

Ответ:

Я Я просто не понял какое число поэтому это число

9 8 7 6

Answer 2

Конечно, вот пример кода на Pascal, который выводит цифры четырехзначного числа в порядке убывания:

program DigitsInDescendingOrder;

var
  number, digit, temp: integer;

begin
  // Вводим четырехзначное число
  write('Введите четырехзначное число: ');
  readln(number);

// Печатаем цифры в порядке убывания
  writeln('Цифры в порядке убывания: ');

// Используем цикл для извлечения и вывода цифр
  for temp := 9 downto 0 do
  begin
    // Копируем число для обработки
    digit := number;

// Проверяем каждую цифру числа
    while digit > 0 do
    begin
      // Если текущая цифра равна текущей проверяемой цифре, выводим ее
      if digit mod 10 = temp then
        write(temp);
      
      // Убираем последнюю цифру числа
      digit := digit div 10;
    end;
  end;

writeln; // Переходим на новую строку после вывода цифр
end.

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