0015 判断输入的数是不是素数-控制台程序-极语言教程

小程序 初始启动
写格式("请输入大于 1 并且小于等于 2147 483 647 的正整数进行素数判断: \r\n")
循环
{
    整数 输入数,计数,判断数=1,开始时间=0,结束时间=0,需要时间=0
    读格式("%d",&输入数)
    开始时间=开机毫秒
    循环于(计数=2;计数<输入数;计数++)
        {
            如果(输入数 % 计数=0)
                判断数=0
        }
    结束时间=开机毫秒
    需要时间=结束时间-开始时间
    如果(判断数)
        {
            写格式("%d 是素数 \r\n",输入数)
            写格式("耗时: %d 毫秒 \r\n",需要时间)    
        }
    否则
        {
            写格式("%d 不是素数 \r\n",输入数)
            写格式("耗时: %d 毫秒 \r\n",需要时间)
        }
    写格式("\r\n")
}
命令行("pause")
结束