Сначала цифры — это легко:
N1 := N div 1000;
N2 := (N div 100) mod 10;
N3 := (N div 10) mod 10;
N4 := N mod 10;
А дальше то-же не сложно ( только нужно учесть, что в исходном числе могли быть повторяющиеся цифры и нули ) :
S := [];
NN := N1 * 10 + N2; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
NN := N1 * 10 + N3; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
NN := N1 * 10 + N4; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
NN := N2 * 10 + N1; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
NN := N2 * 10 + N3; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
NN := N2 * 10 + N4; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
NN := N3 * 10 + N1; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
NN := N3 * 10 + N2; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
NN := N3 * 10 + N4; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
NN := N4 * 10 + N1; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
NN := N4 * 10 + N2; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
NN := N4 * 10 + N3; if (NN > 10) and Not(NN in S) then begin Include(S, NN); WriteLn(NN); end;
Другие языки программирования и технологии
задано натуральное четырехзначное число получить из его цифр все возможные двузначные цифры
Бауыржан Аипов
125
Исключено. Двузначных цифр не существует.
Андрей Горчаков
56 928
Могу прислать программу, которая разбирает 3-значное число и делает все перестановки.
Похожие вопросы
- Помогите решить задачу по программированию. Дано четырёхзначное число. Найти: а) сумму его цифр; б) произведение его циф
- Паскаль. Дано натуральное число. Верно ли , что цифра А встречается в нем более К раз.
- Два двузначных числа, записанных одно за другим, образуют четырехзначное число, которое делится на их произведение.
- Дано 4х число. Найти наименьшую нечетную цифру в числовой записи данного числа. Если вводим 0,то выводится 0.Что не так?
- паскаль - Дано натуральное число п. Переставить его цифры так, чтобы образовалось наименьшее число
- Дано натуральное число. Определить количество его цифр, кратных z. Написать в Паскаль
- Найдите наибольшее четырехзначное число, которое при делении на любое однозначное число, кроме 1,2и3, дает в остатке 3
- Сколько N-значных чисел можно составить, используя цифры 5 и 9, в которых три одинаковые цифры не стоят рядом? Pascal
- два четырёхзначных числа A,B. Вывести все четырёхзначные числа от а до б, запись которых является палиндромо
- помогите написать програму в паскале. Задано натуральное число х. вывести все двознначные числа ,сума которых меньше х.