2017年10月08日普及组世界语

SSLGZ_yyc

于 2017-10-08 20:28:16 发布

阅读量269

点赞数

CC 4.0 BY-SA版权

分类专栏：普及模拟赛

本文链接：https://blog.youkuaiyun.com/SSLGZ_yyc/article/details/78177187

普及模拟赛专栏收录该内容

91 篇文章

订阅专栏

本文介绍了一个简单的程序设计挑战，通过使用数组和条件语句来输出特定格式的罗马数字。作者分享了因提交错误导致失分的经历，并展示了完整的Pascal语言程序代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

这里写图片描述

分析
水题一道，提交的时候把文件夹的名字打错了，结果没了100分……

程序

const
a:array[1..10]of string=('unu','du','tri','kvar','kvin','ses','sep','ok','nau','dek');
var
x:longint;
begin
    assign(input,'shijie.in');
    reset(input);
    assign(output,'shijie.out');
    rewrite(output);
    read(x);
    if x<=10 then write(a[x]) else
    if x mod 10=0 then write(a[x div 10]+'dek') else
    if x div 10=1 then write('dek'+' '+a[x mod 10]) else
    write(a[x div 10]+'dek'+' '+a[x mod 10]);
    close(input);
    close(output);
end.