Дано натуральное четырехзначное число n.определите все ли цифры в числе различны! завтра сдавать

Var    n: integer;   c: set of integer;   b: boolean; begin   readln(n);   b : = true;   while (n < > 0) and b do begin     b : = b and (not ((n mod 10) in c));     c : = c + [n mod 10];     n : = n div 10;   end;       if b then writeln('различны')   else writeln ('нет'); end.

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! в других версиях языка работа не гарантируется! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив a[',m,',',n,'] ***');   var a: =matrrandom(m,n,-50,50);   a.println(4);   writeln(4*a.colcount*'-');   var k: =a.rows.select(x-> x.aggregate(0,(x,y)-> x+.indexmax;   for var j: =0 to (n-1) div 2 do swap(a[k,j],a[k,n-1-j]);   a.println(4) end. пример количество строк в массиве: 4 количество столбцов в массиве: 5 *** исходный массив a[4,5] ***   29  36 -50  -4 -32   -1 -10  -7 -47 -50   -16    4  48 -41 -43     8  46  45  14 -44   29  36 -50  -4 -32   -1 -10  -7 -47 -50   -16    4  48 -41 -43   -44  14  45  46    8

Единственный способ разбить запись 1311 на два числа – это 13 и 11 (числа 131 и 311 не могут образоваться в результате сложения значений двух десятичных цифр) 2) сумма первой и второй цифр должна быть наименьшей (тогда и число будет она равна 11; тогда сумма значений двух последних цифр равна 13 3) для того, чтобы всё число было минимально, числа, составленные из первых двух и последних двух цифр должны быть минимальными соответственно для сумм 11 и 13 4) минимальное двузначное число, у которого сумма значений цифр равна 11, - это 29, с этих двух цифр начинается исходное четырёхзначное число 5) сумма двух последних цифр – 13, минимальное двузначное число с такой суммой цифр – 49. ответ: 2949