Ответ:
готово. PascalABC
Объяснение:
program min4;
var
n: integer;
i, j: integer;
a: array[1..4] of integer;
begin
Write('Введите четырехзначное число: '); ReadLn(n);
for i := 1 to 4 do begin
a[5 - i] := n mod 10;
n := n div 10;
end;
for i := 1 to 3 do
for j := i + 1 to 4 do
if a[i] > a[j] then swap(a[i],a[j]);
for i := 1 to 4 do begin
if a[i] <> 0 then begin
swap(a[i],a[1]);
break;
end;
end;
n := a[1];
for i := 2 to 4 do
n := n * 10 + a[i];
WriteLn('Минимальное число из этих цифр равно ', n);
end.