program Change1;
var numb:byte;
begin
readln(numb);
case numb of
0:writeln('Ling');
1:writeln('Yi');
2:writeln('Er');
中间的自己补全吧。
9:writeln('Jiu');
end;
end.
用的是Case语句。这是一个可以分很多类别处理的框架结构，比单纯的一堆If语句好很多。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024