Напечатать в порядке убывания все цифры , входящие в запись данного натурального числа. Паскаль.
Answers & Comments
srzontmp
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.
Answers & Comments
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.