1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Ольга |
Сообщение
#1
|
|
Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Женский Реальное имя: Оля Репутация: 0 |
Вводится некоторое натуральное число N, состоящее не более чем из 8 различных цифр (первая – не 0). Определить, сколько существует различных чисел, больших N и составленных из тех же цифр (и в тех же количествах), что и N.
|
![]() ![]() |
| Ольга |
Сообщение
#2
|
|
Новичок ![]() Группа: Пользователи Сообщений: 15 Пол: Женский Реальное имя: Оля Репутация: 0 |
Что-то у меня не получается с этой программой. В числе должно быть не более 8 цифр, а программа согласно этой строке write('введите ',i,'-ую цифру числа: '); запрашивает 14 раз 'введите 1-ую цифру числа' и так до 14 раз (хотя, например, ввожу число из 3-х цифр).
|
| samec |
Сообщение
#3
|
![]() Бывалый ![]() ![]() ![]() Группа: Пользователи Сообщений: 180 Пол: Мужской Реальное имя: Юра Репутация: 1 |
Что-то у меня не получается с этой программой. В числе должно быть не более 8 цифр, а программа согласно этой строке write('введите ',i,'-ую цифру числа: '); запрашивает 14 раз 'введите 1-ую цифру числа' и так до 14 раз (хотя, например, ввожу число из 3-х цифр). значит просто ввела n равное не трём, а четырнадцати. у меня вот как программа работает: Введите n:3 введите 1-ую цифру числа: 1 введите 2-ую цифру числа: 2 введите 3-ую цифру числа: 3 заданное число: 123 1-ое число: 132 2-ое число: 213 3-ое число: 231 4-ое число: 312 5-ое число: 321 Итого 5 чисел больше заданного Нажмите любую клавишу для выхода... Сообщение отредактировано: samec - |
Ольга Число 3.05.2007 16:26
volvo Насколько я понимаю, твою задачу можно привести к … 3.05.2007 20:06
Ольга Большое спасобо за совет. Только помогите практиче… 4.05.2007 13:00
Гость В программе, на Дельфи, приведенной по ссылке, нет… 4.05.2007 14:02
Ольга Все так и сделала - заменила var x : TInteger1DAr… 7.05.2007 13:54
samec вот что получилось у меня
program perm;
uses CRT;… 7.05.2007 15:00
volvo Вот так попробуй:
function Fact(n: integer): longi… 7.05.2007 18:21
Ольга Большое спасибо, все правильно работает!!… 8.05.2007 13:53![]() ![]() |
|
Текстовая версия | 6.11.2025 4:22 |