Задано натуральное число N, в десятичной записи которого не более 6 цифр. Переставить цифры так, чтобы получилось наименьшее из чисел, кот. можно составить из его цифр.
Program zadacha1;
uses crt;
var i,t, j: byte; p,n:longint; a:array[1..6] of byte;
begin
clrscr;
write('vvedite N');
readln(n); p:=n;
for i:=1 to 6 do begin
a[i]:=p mod 10;
p:= p div 10; end;
for i:=1 to 6 do
for j:=1 to 5 do
if a[j]<a[j+1] then begin
p:=a[j]; a[j]:=a[j+1]; a[j+1]:=a[j]; end; p:=0; t:=1;
for i:=j to 6 do begin
p:=a[i]*t+p;
t:=t*10; end;
writeln('naimenshee chislo coctavlennoe iz cifr chisla', n ,' =', p);
readln;
end.
Тегами не забываем пользоваться...
Сообщение отредактировано: volvo -