Question

Написать программу в PascalABC.NET, используя функцию " function <название функции> ". Сама задача:

Вывести все натуральные четырехзначные числа, в которых есть все три заданные цифры.

Формат ввода:

На вход подается цифры n1, n2, n3 (от 0 до 9).

Формат вывода:

Полученные числа в одну строку через 1 пробел.

Пример входных данных

3 7 9

Пример выходных данных

1379 1397 1739 1793 1937 1973 2379.....

Answer 1

// PascalABC.NET

function ХочетсяСтранного(n1, n2, n3: integer): sequence of integer;

begin

 var a := Seq(n1, n2, n3).Sorted.ToArray;

 var s := a.Permutations.Select(t -> 100 * t[0] + 10 * t[1] + t[2]);

 foreach var i in 1..9 do

   foreach var n in s do

     yield 1000*i+n

end;

begin

 var (n1, n2, n3) :=

 ReadInteger3('Введите три цифры через пробел:');

 ХочетсяСтранного(n1, n2, n3).Print

end.