题目
世界语 有一种世界流行的语言叫“Esperanto”, 在该语言中, 数字1 至 10分别是: “unu”, “du”, “tri”, “kvar”, “kvin”, “ses”, “sep”, “ok”, “nau”, “dek”. 数字11至19分别是: “dek unu”, “dek du”, …, “dek nau” ,也就是一个 “dek”后面一个空格,接着是个位上的数字. 数字20至29分别是: “dudek”, “dudek unu”, “dudek du”, …, “dudek nau”. 相似的, 30 是”tridek”, …, 90 是”naudek” . 给你一个整数x, 输出它的Esperanto 表示法.
1<=n<=99
题解
好好模拟,天天向上
代码
const
s:array[1..10]of string=('unu','du','tri','kvar','kvin','ses','sep','ok',
'nau','dek');
var
n:longint;
t:string;
begin
readln(n);
if n>19 then
begin
t:=s[n div 10]+s[10];
if n mod 10>0 then t:=t+' '+s[n mod 10];
end else
if n>10 then t:=s[10]+' '+s[n mod 10] else
t:=s[n];
writeln(t);
end.