function parseNumber(a){if(a==="0")return"\u043d\u043e\u043b\u044c";if(isNaN(parseInt(a)))return"\u043d\u0435 \u0447\u0438\u0441\u043b\u043e";for(var e=[["","\u043e\u0434\u0438\u043d","\u0434\u0432\u0430","\u0442\u0440\u0438","\u0447\u0435\u0442\u044b\u0440\u0435","\u043f\u044f\u0442\u044c","\u0448\u0435\u0441\u0442\u044c","\u0441\u0435\u043c\u044c","\u0432\u043e\u0441\u0435\u043c\u044c","\u0434\u0435\u0432\u044f\u0442\u044c","\u0434\u0435\u0441\u044f\u0442\u044c","\u043e\u0434\u0438\u043d\u043d\u0430\u0434\u0446\u0430\u0442\u044c",
"\u0434\u0432\u0435\u043d\u0430\u0434\u0446\u0430\u0442\u044c","\u0442\u0440\u0438\u043d\u0430\u0434\u0446\u0430\u0442\u044c","\u0447\u0435\u0442\u044b\u0440\u043d\u0430\u0434\u0446\u0430\u0442\u044c","\u043f\u044f\u0442\u043d\u0430\u0434\u0446\u0430\u0442\u044c","\u0448\u0435\u0441\u0442\u043d\u0430\u0434\u0446\u0430\u0442\u044c","\u0441\u0435\u043c\u043d\u0430\u0434\u0446\u0430\u0442\u044c","\u0432\u043e\u0441\u0435\u043c\u043d\u0430\u0434\u0446\u0430\u0442\u044c","\u0434\u0435\u0432\u044f\u0442\u043d\u0430\u0434\u0446\u0430\u0442\u044c"],
["","\u0434\u0435\u0441\u044f\u0442\u044c","\u0434\u0432\u0430\u0434\u0446\u0430\u0442\u044c","\u0442\u0440\u0438\u0434\u0446\u0430\u0442\u044c","\u0441\u043e\u0440\u043e\u043a","\u043f\u044f\u0442\u044c\u0434\u0435\u0441\u044f\u0442","\u0448\u0435\u0441\u0442\u044c\u0434\u0435\u0441\u044f\u0442","\u0441\u0435\u043c\u044c\u0434\u0435\u0441\u044f\u0442","\u0432\u043e\u0441\u0435\u043c\u044c\u0434\u0435\u0441\u044f\u0442","\u0434\u0435\u0432\u044f\u043d\u043e\u0441\u0442\u043e"],["","\u0441\u0442\u043e",
"\u0434\u0432\u0435\u0441\u0442\u0438","\u0442\u0440\u0438\u0441\u0442\u0430","\u0447\u0435\u0442\u044b\u0440\u0435\u0441\u0442\u043e","\u043f\u044f\u0442\u044c\u0441\u043e\u0442","\u0448\u0435\u0441\u0442\u044c\u0441\u043e\u0442","\u0441\u0435\u043c\u044c\u0441\u043e\u0442","\u0432\u043e\u0441\u0435\u043c\u044c\u0441\u043e\u0442","\u0434\u0435\u0432\u044f\u0442\u044c\u0441\u043e\u0442"],["\u0442\u044b\u0441\u044f\u0447","\u043c\u0438\u043b\u043b\u0438\u043e\u043d\u043e\u0432","\u043c\u0438\u043b\u043b\u0438\u0430\u0440\u0434\u043e\u0432",
"\u0442\u0440\u0438\u043b\u043b\u0438\u043e\u043d\u043e\u0432"]],c=a.length,b=[],d=0;c--;)b.unshift(e[d++][a.charAt(c)]),d===2&&Number(a.charAt(c))===1&&(b.shift(),b[0]=e[0][a.substring(c,c+2)]),d===3&&c!==0&&(b.unshift(e[3].shift()),d=0);a=b.length-5;switch(b[a]){case "\u043e\u0434\u0438\u043d":b[a]="\u043e\u0434\u043d\u0430";b[a+1]="\u0442\u044b\u0441\u044f\u0447\u0430";break;case "\u0434\u0432\u0430":b[a]="\u0434\u0432\u0435";b[a+1]="\u0442\u044b\u0441\u044f\u0447\u0438";break;case "\u0442\u0440\u0438":case "\u0447\u0435\u0442\u044b\u0440\u0435":b[a+
1]="\u0442\u044b\u0441\u044f\u0447\u0438"}return b.join(" ").replace(/\s+$/,"")}alert(parseNumber(prompt("\u0412\u0432\u0435\u0434\u0438\u0442\u0435 \u0447\u0438\u0441\u043b\u043e")));
Могу предоставить и читаемый вариант с комментами. Но уже не просто за "большое спасибо"
