Ребус на Делфи

[Jane_Air]

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

РАКЕТА + ОРБИТА = КОСМОС

[blackstrip]

А я думал, что ребус это когда "антре" и рисуют рядом кота. Получается "антрекот". Или когда еще запятые подрисовывают в конце или начале картинки, чтоб знать сколько букв выкинуть. Или просто картинки на угадывание:


А как из "ракета + орбита" получить "космос" ?

[Jane_Air]

Нужно найти все решения,где разные буквы - это разные цифры от 0 до 9

[Jane_Air]

вот пример:
Приклад. Знайти всі розв’язки ребуса МУХА + МУХА =
СЛОН.
Найпростіший спосіб розв’язання — перебрати всі можливі
чотирицифрові числа та перевірити їх на відповідність вказано%
му ребусу. У цій задачі можливі числа належать діапазону
1023..4987 — мінімальне та максимальне чотирицифрові чис%
ла з попарно різними цифрами, які при множенні на 2 дають чо%
тирицифровий результат.
Для кожного числа та його подвоєння створимо множини
цифр; відповідність чисел умові означає, що ці множини мають
по чотири цифри, а їх перетин порожній.
Для реалізації наведеного алгоритму використаємо тип «мно%
жина цифр».
type setDigit = set of 0..9;
Створення множини цифр чотирицифрового числа опишемо
процедурою createSet, у якій цифри виділяються як остачі від
цілочислового ділення на 10 та додаються до множини, що є па%
раметром%змінною.
Кількість елементів у множині цифр обчислимо за допомогою
функції nDigits, яка підраховує, скільки з цифр 0, 1, …, 9 на%
лежать множині цифр.
З використанням наведених підпрограм розв’язання стає оче%
видним.

program rebus;
 type setDigit = set of 0..9;
procedure createSet(a:longint;
 var M:setDigit);
begin {побудова множини цифр числа a}
 M:=[];
 while a>0 do begin
 M:=M+[a mod 10];
 a:=a div 10;
 end;
end;
function nDigits(M:setDigit):byte;
 var p,i:byte;8 5
begin {підрахунок елементів у множині цифр}
 p:=0;
 for i:=0 to 9 do
 if i in M then inc(p);
 nDigits:=p;
end;
var M1,M2:setDigit; {множини цифр МУХА,СЛОН}
 i:word; {перевіряється як МУХА}
Begin
 For i:=1023 to 4987 do
 begin
 createSet(i,M1);
 if nDigit(M1)=4
 then begin
 createSet(2*i,M2);
 if (nDigit(M2)=4)and(M1*M2=[])
 then writeln(i,'+',i,'=',2*i);
 end;
 end;
End.

[Serge_Bliznykov]

Джейн, Вам стоит сходить в тему:
Криптарифметическая задача

думаю, что там Вы найдёте то, что ищете...


p.s. рекомендую воспользоваться кодом (c) TinMan из данного топика

p.p.s.
РАКЕТА + ОРБИТА = КОСМОС

135823 + 410923 = 546746
135923 + 410823 = 546746
375207 + 139607 = 514814
375607 + 139207 = 514814
found 4 solutions