Дано шестизначное целое число N, в десятичной записи которого нет нулей. Необходимо...

Question

Дано шестизначное целое число N, в десятичной записи которого нет нулей. Необходимо определить минимальное трехзначное число, которое можно увидеть в десятичной записи числа N. Например, для N=915391 - результат 153

Answer 1

Var i,n,m,j,t:integer;d:array[1..6] of integer;beginn:= 951259;repeat m:= m + 1;d[m]:= n mod 10;n:= n div 10;until n = 0;writeln(d);for i:=1 to m do for j:=2 to m do beginif d[j-1]> d[j] then begint:= d[j-1]; d[j-1]:= d[j]; d[j]:= t;end;end;for i:=1 to 3 do write(d[i]);end.