алгоритм 33

Ответ от Ўркофф[гуру]
function nnn parameter n dimension a1(20) a1(1) = \'\' a1(2) = \'одна\' a1(3) = \'две\' a1(4) = \'три\' a1(5) = \'четыре\' a1(6) = \'пять\' a1(7) = \'шесть\' a1(8) = \'семь\' a1(9) = \'восемь\' a1(10) = \'девять\' a1(11) = \'десять\' a1(12) = \'одинадцать\' a1(13) = \'двенадцать\' a1(14) = \'тринадцать\' a1(15) = \'четынадцать\' a1(16) = \'пятнадцать\' a1(17) = \'шестнадцать\' a1(18) = \'семнадцать\' a1(19) = \'восемьнадцать\' a1(20) = \'девятнадцать\' dimension a10(10) a10(1) = \'\' a10(2) = \'\' a10(3) = \'двадцать\' a10(4) = \'тридцать\' a10(5) = \'сорок\' a10(6) = \'пятьдесят\' a10(7) = \'шестьдесят\' a10(8) = \'семьдесят\' a10(9) = \'восемьдесят\' a10(10) = \'девяносто\' dimension a100(10) a100(1) = \'\' a100(2) = \'сто\' a100(3) = \'двести\' a100(4) = \'триста\' a100(5) = \'четыреста\' a100(6) = \'пятьсот\' a100(7) = \'шестьсот\' a100(8) = \'семьсот\' a100(9) = \'восемьсот\' a100(10) = \'девятьсот\' return alltrim(a100(int(mod(n, 1000)/100) + 1) + \' \' + iif(mod(n, 100) < 20, a1(mod(n, 100) + 1), a10(int(mod(n, 100)/10) + 1) + \' \' + a1(int(mod(n, 10)/1) + 1)))