极语言5-5 鸡兔同笼、14的13次方、打印由ASCII码中字符组成的空心菱形

//以鸡和兔的数量为切入点:
小程序 初始启动21
写格式("鸡加兔有35只,鸡脚加兔脚有94脚,问鸡兔各有多少只? \r\n\r\n")
整数 鸡,兔
循环于(鸡=1;鸡<=(35 - 1);鸡++)
{

循环于(兔=1;兔<=(35 - 1);兔++)
{
    如果(鸡+兔=35 && 鸡*2+兔*4=94)
    {
        写格式("鸡有 %d 只,兔有 %d 只 \r\n\r\n",鸡,兔)
    }
}

}
命令行("pause")
结束

//以鸡脚和兔脚的数量为切入点,显然这种算法更麻烦:
小程序 初始启动22
写格式("鸡加兔有35只,鸡脚加兔脚有94脚,问鸡兔各有多少只? \r\n\r\n")
整数 鸡脚,兔脚
循环于(鸡脚=3;鸡脚<=(94 - 4);鸡脚++)
{

循环于(兔脚=5;兔脚<=(94 - 2);兔脚++)
{
    如果(鸡脚 % 2 = 0 && 兔脚 % 4 =0 && 鸡脚+兔脚=94 && 鸡脚/2+兔脚/4=35)
    {
        写格式("鸡有 %d 只,兔有 %d 只 \r\n\r\n",鸡脚/2,兔脚/4)
    }
}

}
命令行("pause")
结束

//因为14的13次方,已经超过了计算机整数的取值范围,所以只能用取余的方式获得:
小程序 初始启动23
写格式("求14的13次方最后的三位数\r\n\r\n")
整数 计数,余数=14
循环于(计数=2;计数<=13;计数++)
{

余数 = (余数 * 14) % 1000

}
如果(余数<100)
{

写格式("最后三位数是 0%d \r\n",余数)

}
否则
{

写格式("最后三位数是 %d \r\n\r\n",余数)

}
命令行("pause")
结束

小程序 初始启动24
字符 字母=\Z+1
整数 行数,列数,输入数
循环
{

写格式("请输入行数: ")
读格式("%d",&输入数)
循环于(行数=1;行数<=输入数;行数++)
{
    循环于(列数=1;列数<=输入数+行数-2;列数++)
    {
        如果(列数=输入数-行数+1)
        {
            字母--
            写字符(字母)
        }
        否则
            写格式(" ")
    }
字母--
写字符(字母)
写格式("\r\n")
}
循环于(行数=1;行数<输入数;行数++)
{
    循环于(列数=1;列数<=(2*(输入数-1)-行数);列数++)
    {
        如果(列数=行数+1)
        {
            字母--
            写字符(字母)
        }
        否则
            写格式(" ")
    }
字母--
写字符(字母)
写格式("\r\n")
}
写格式("\r\n")

}
结束