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

Question

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

Answer 1

Var st,s: string;
    i,j: integer;
begin
  s:='9876543210';
  write('число:  ');  readln(st);
  j:=1;
  while j<=length(s) do<br>  begin
    i:=1;
     while i<=length(st) do<br>    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.