15 за решение. вам дается строка, содержащая целое положительное число (возможно большое) без ведущих нулей. вам разрешается обменять любые 2 символа строки (2 цифры числа), либо вы можете оставить исходное число. обмен разрешается только в том случае, если в результате в строке не получилось ведущих нулей. среди всех возможных строк, полученных указанным выше найдите ту строку, которая задает наименьшее число из всех возможных. обратите внимание, что в результате не должно быть ведущих нулей, а также на то, что ответом может быть и сама исходная строка. входные данные: во входном файле input.txt в первой строке записана строка s, целое положительное число без ведущих нулей. выходные данные: в выходной файл output.txt ваша программа должна вывести строку, содержащую минимальное число, которое можно получить из исходной строки.
program z; var imin,i:integer;inf,outf:text;beginimin:=0;assign(inf,'in.txt');reset(inf); while not EOF(inf) do begin readln(inf,i); if i<imin then imin:=i; end;close(inf);assign(outf,'out.txt');rewrite(outf);writeln(outf,imin);close(outf);end.