Question

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

Answer 1

Var st,s: string;
    i,j: integer;
begin
  s:='9876543210';
  write('число:  ');  readln(st);
  j:=1;
  while j<=length(s) do
  begin
    i:=1;
     while i<=length(st) do
    begin
      if st[i]=s[j] then
       begin
        write(s[j],' ');
        delete(st,i,1);
        i:=i-1;
      end;
      i:=i+1;
    end;
    j:=j+1;
    if length(st)=0 then break;
  end;
 end.
    

Answer 2

Для решения этой задачи на языке Паскаль можно использовать следующий алгоритм:

- Ввести натуральное число N с клавиатуры. - Создать массив A из 10 элементов, каждый из которых равен 0. - Пока N не равно 0, повторять следующие действия: - Найти последнюю цифру числа N, используя операцию остатка от деления на 10 (N mod 10). - Увеличить элемент массива A с индексом, равным этой цифре, на 1 (A[N mod 10] := A[N mod 10] + 1). - Убрать последнюю цифру из числа N, используя операцию целочисленного деления на 10 (N := N div 10). - Для каждого i от 9 до 0, повторять следующие действия: - Если элемент массива A с индексом i больше 0, то вывести на экран i столько раз, сколько равен этот элемент (например, если A[5] = 2, то вывести 55).

Пример кода на Паскаль, реализующего этот алгоритм, можно посмотреть здесь.

: [6](https://ideone.com/3XZL8i