Здравствуйте. Такая задача. Даны к примеру три числа (1,2,3) нужно написать программку, которая создает максимально возможное число комбинаций из этих чисел, к примеру 123, 122,331 и т.д. То есть не просто перестановки но и с повторяющимися числами. вот написал но что-то не то, посоветуйте, кто что знает.
Код:
var
a: array[1..3] of integer;
b: array[1..3] of real;
z: array[1..9] of integer;
i,k:integer;
begin
for i:=1 to 3 do
if a[i]<a[i+1] then
begin
z[k]:=a[i];
end;
write(z[i],'');
end.