= 1; } { = n * (1); } ; } }

【程序23】

题目：有5个人坐在一起，问第五个人多少岁？他说比第4个人大2岁。问第4个人岁数，他说比第3个人大2岁。问第三个人，又说比第2人大两岁。问第2个人，说比第一个人大两岁。最后问第一个人，他说是10岁。请问第五个人多大？ 23 { ([] ) { = 10;

( 2; i<=5; ) { 2; } (); } }

【程序24】

题目：给一个不多于5位的正整数，要求：一、求它是几位数，二、逆序打印出各位数字。 使用了长整型最多输入18位 .*; 24 { ([] ) { s = ();

(\请输入一个正整数：\ a = (); = (a); [] = (); ;

(a + \是一个\位数。\ (\按逆序输出是：\ ( 1; i>=0; ) { ([i]); } } }

【程序25】

题目：一个5位数，判断它是不是回文数。即12321是回文数，

个位与万位相同，十位与千位相同。 .*; 25 { ([] ) { s = (); a; {

(\请输入一个5位正整数：\ a = ();

}(a<10000>99999); (a); [] = (); ([0][4][1][3]){ (\这是一个回文数\ {(\这不是一个回文数\ } }

这个更好，不限位数 .*; 25a { ([] ) { s = ();

;

(\请输入一个正整数：\ a = (); = (a); [] = (); ;

( 0; i<2; ) { ([i][1]){;} }

(){(\这是一个回文数\ {(\这不是一个回文数\ } }

【程序26】

题目：请输入星期几的第一个字母来判断一下是星期几，如果第一个字母一样，则继续 判断第二个字母。 .*; 26 { ([] ) { = ();

(\请输入星期的第一个大写字母：\ = ();