10.8 世界语 2402

题目

世界语 有一种世界流行的语言叫“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.