числа Смита

Кто знает как решить задачу на Ассемблере про числа Смита?!
Помогите

 

Код (Text):

1. db 4, 22, 27, 58, 85, 94, 121, 166, 202, 265, 274, 319, 346, 355, 378, 382, 391, 438, 454, 483, 517, 526, 535, 562, 576, 588, 627, 634, 636, 645, 648, 654, 663, 666, 690, 706, 728, 729, 762, 778, 825, 852, 861, 895, 913, 915, 922, 958, 985, 1086

Такое решение устроит?

 

хаха) вспомнил как злил преподов на задачах про циклы, когда выдавал прогу

Код (Text):

1. writeln ('1,2,3,4,5,6,7,8,9,10')

тока в db не все числа влезут

 

замечание насчет названия темы.

 

Переписать что-то вроде этого (хороший алгоритм) __tp://volvo71.narod.ru/faq_folder/numbers.htm