Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 28.06.2016
Сообщений: 7

Составить алгоритм решения ребуса "ДРУГ-ГУРД=2727"

28.06.2016, 15:50. Показов 1328. Ответов 2

Студворк — интернет-сервис помощи студентам
Помогите с программой
Составить алгоритм решения ребуса ДРУГ — ГУРД = 2727 (различные буквы обозначают различные цифры, старшая — не 0).
Заранее спасибо.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.06.2016, 15:50
Ответы с готовыми решениями:

Составить программу для решения арифметического ребуса: КТО+КОТ=ТОК
Составить программу для решения арифметического ребуса: КТО+КОТ=ТОК. Вместо каждой буквы надо...

Решение ребуса ABC * 7 = DEF
Решить ребус ABC * 7 = DEF У чисел цифры различны, но у них есть по одной общей цифре. (цифр 0 и...

Решить ребус
Здравствуйте! Ищу помощи в написании программы для решения арифметических ребусов. Первая программа...

2
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
28.06.2016, 16:36
Лучший ответ Сообщение было отмечено DARKQ как решение

Решение

Программа выдала ровно 29 решений
Для понимания этой программы необходимо знать, что
я привел преобразования заданного равенства (хотя это
можно было и не делать), тем не менее...
xyzu = uzyx + 2727
999(x - u) = 90(z - y) + 2727
111(x - y) = 10(z - y) + 303

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
 
FOR x = 3 TO 9
FOR y = 0 TO 9
FOR z = 0 TO 9
FOR u = 1 TO 9
   a = 111 * (x - u)
   b = 10 * (z - y)
   c = x <> y AND x <> z AND x <> u AND y <> z AND y <> u AND z <> u
   IF a = b + 303 AND c THEN PRINT 1000 * x + 100 * y + 10 * z + u;
NEXT u, z, y, x
END
1
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
28.06.2016, 17:44
Цитата Сообщение от geh Посмотреть сообщение
я привел преобразования заданного равенства
Ну, раз начал преобразовывать, надо было доводить преобразования до конца, тогда перебор резко бы сократился.
Преобразования дают следующий результат:
а1-а4=3 и
а3-а2=3 (это обычная целочисленная арифметика, 7 класс)
следовательно вместо 6300 вариантов имеем 36:
QBasic/QuickBASIC
1
2
3
4
5
FOR a1 = 4 TO 9
 FOR a2 = 0 TO 6
IF a1 <> a2 AND a1 <> (a2 + 3) AND (a2 + 3) <> (a1 - 3) THEN PRINT 1000 * a1 + 100 * a2 + 10 * (a2 + 3) + a1 - 3;
NEXT
NEXT
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
28.06.2016, 17:44
Помогаю со студенческими работами здесь

Написать программу-генератор буквенных ребусов
Народ, возникла такая проблемка....нужно написать программу-генератор буквенных ребусов, т.е....

Написать программу решающую ребус
Написать программу для решения ребуса: некоторые цифры зашифрованы буквами. Одинаковым буквам...

Найти ошибку в коде "Арифметический ребус"
Помогите, пожалуйста, написать код в VBA! Вот задание и его решение: Буду премного...

Ребус: два + три = пять
Решить ребус ДВА + ТРИ = ПЯТЬ при условии, что сумма цифр в числе ПЯТЬ будет минимальной REM...

Вычислить ребус куб=(к+у+б)^3 при условии, что разным буквам соответствуют разные цифры
Кто-нибуууудь, помогите написать программу пожалуйстаааа


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Первый деплой
lagorue 16.01.2026
Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru