Написать программу в PascalABC.NET, используя функцию " function <название функции> ". Сама задача:
Вывести все натуральные четырехзначные числа, в которых есть все три заданные цифры.
Формат ввода:
На вход подается цифры n1, n2, n3 (от 0 до 9).
Формат вывода:
Полученные числа в одну строку через 1 пробел.
Пример входных данных
3 7 9
Пример выходных данных
1379 1397 1739 1793 1937 1973 2379
1298school
2
09.05.2020 13:20
1
Другие вопросы по теме Информатика
atitova644
12.12.2020 08:23
tjomiki
12.12.2020 08:22
hgcfm
22.08.2019 06:20
Smile460
22.08.2019 06:10
Нюта241
22.08.2019 06:10
pmv2002rusp0bof2
12.07.2019 10:30
skalapendra1212
03.12.2019 11:00
froxxxy
03.12.2019 11:00
Популярные вопросы
- Материки как природные комплексы: расположение, границы, названия...
3 - 197. Решите уравнение:1 -4х = 32;...
3 - Конспект по теме решение системных уравнений методом подстановки...
3 - Sometimes i do not know where i want to spend my -in thein the...
3 - выполни выполни вычитани 1/3-1/9 10/21-1/3 14/15-3/5...
1 - Склади добовий набір страв і продуктів, які входять до раціону...
3 - BD пендипекулярно АС кут АВD=куту CBD дано AD=CD...
2 - в сумме 78 в среднее арифмическое 26 первое число в 2,5 раза больше...
2 - Опишите родителей Боба. Что стало истиной причиной того, что он...
2 - по казахскому языку 7 тапсырма ...
2
// 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.