program lx;

var t,m,n,i,j,k,l,o:longint;

s:string;

begin

l:=0;m:=1;

readln(s);l:=length(s);

for i:=(l div 3) downto 0 do

begin t:=0;

for j:=m to l-i*3 do

begin o:=1;

if s[j]'0' then o:=1;

if l-i*3-j=2 then

begin case s[j] of

'1':write('one ');

'2':write('two ');

'3':write('three ');

'4':write('four ');

'5':write('five ');

'6':write('six ');

'7':write('seven ');

'8':write('eight ');

'9':write('nine ');

end;

if s[j]'0' then write('hundred ');

if (s[j+1]'0')or(s[j+2]'0') then write('and ');

end;

if l-i*3-j=1 then

begin

case s[j] of

'2':write('twenty');

'3':write('thirty');

'4':write('forty');

'5':write('fifty');

'6':write('sixty');

'7':write('seventy');

'8':write('eighty');

'9':write('nine','ty');

end;

if (s[j+1]'0')and(s[j]'1')and(s[j]'0') then write('-');

end;

if l-i*3-j=0 then

begin

if s[j-1]='1' then

case s[j] of

'0':write('ten');

'1':write('eleven');

'2':write('twelve');

'3':write('thirteen');

'4':write('fourteen');

'5':write('fifteen');

'6':write('sixteen');

'7':write('seventeen');

'8':write('eighteen');

'9':write('nine','teen');

end;

if s[j-1]'1' then

case s[j] of

'1':write('one');

'2':write('two');

'3':write('three');

'4':write('four');

'5':write('five');

'6':write('six');

'7':write('seven');

'8':write('eight');

'9':write('nine');

end;

end;

end;

m:=l-i*3+1; if (m

对不起，您提交的代码中包含非法字符串 NET

这不是逼我把nineteen分割开来么

比较傻的Vinci做比较傻的人学英语

以前，我认为我的E文已经很不错了……现在，我认为我的E文垃圾得不行啊……

我的方法很简单，只要你不怕通过率，先原样输出，然后输出英文。。。。

（有点卑鄙，劝你不要用）

这题的确比较麻烦，虽然很简单，但是很复杂……

我从2008年9月10日下午17:35左右开始上手这题，直到现在是2008年9月11日凌晨01:30左右才写完；

整个晚修3节课全部在学校机房（当然还是有很多颓废的时候的），然后放学回家继续写；

经过面包+火腿+王老吉，使用了 Windows 和 Linux 两种操作系统，以及多种编辑器；

然后还有一次代码的彻底重写，终于凭借还算可以的英文功底，一次就 AC 了这水题：

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

庆贺一下。在此感谢大家。

提醒大家注意，这个程序最好是要结构化+通用化，才能在编写的过程中思维清晰，然后考虑的情况可以少一些。我的代码空行比较泛滥，有264行，这个数据仅供参考。

编程中需要注意的几个问题是：

1、程序员英文基础要好；

2、英文的数字读法的特点是每组3个数字；

3、注意数据范围；

4、注意and和个位与十位之间的连字符-；

5、注意处理行末或行首空格；

6、……

...

呼,连着交了十多次,把通过率拉下了一个百分点，惭愧死．

大家要学好英语啊

还有，本题如果出现５５００的话，是five thousand five hundred

总算是看出来了，郁闷．

忒BT了这题

花了我一个晚上,顺便发现了自己在E文上的重大问题...

越学越傻

KK型噶解法...

学英语的人比较傻

好颓废啊

好猥琐的题目,我爱中文,所以还是不做了.

对不起大家我错了……

第一次出数据有点马虎请多包涵……

数据错误已经改正……

不过也警示大家——学好英语啊~

我会继续努力的……

好猥琐的题目= =

data..........................

坏!数据错!只能if了!

= =

弱智题.

3位处理一次..