他们身上都有若干个糖果,现在他们做一个分糖.pptVIP

某幼儿园里 有5个小朋友编号为1 2 3 4 5 他们按自己的编号顺序围坐在一张圆桌旁 他们身上都有若干个糖果 现在他们做一个分糖果游戏 从1号小朋友开始 将他的糖果均分三份 如果有多余的 则他将多余的糖果吃掉 自己留一份 其余两份分给他的相邻的两个小朋友 接着2号 3号 4号 5号小朋友也这如果做 问一轮后 每个小朋友手上分别有多少糖果 programfentang vara b c d e integer beginreadln a b c d e a adiv3 b b a e e a 1号均分后 1 2 5号的糖果数变化情况 b bdiv3 c c b a a b 2号均分后 1 2 3号的糖果数变化情况 c cdiv3 b b c d d c 3号均分后 2 3 4号的糖果数变化情况 d ddiv3 c c d e e d 4号均分后 3 4 5号的糖果数变化情况 e ediv3 d d e a a e 5号均分后 4 5 1号的糖果数变化情况 输出结果 writeln a a writeln b b writeln c c writeln d d writeln e e readln 暂停 end programex1 varx y integer beginx 0 y 0 whilex 1000dobeginx x 1 y y x end write y end 1 2 1000 估算1001 500 32767 y longint integer 32768 327672带符号16位longint 2147483648 21474836474带符号32位 20 编程求1 3 5 nInput输入一行 只有一个整数n 1 n 9999 这里n为奇数 Output输出只有一行SampleInput99SampleOutput2500 编程求1 2 3 1000 区别在哪里 programxh 1 vart integer s longint begins 0 t 1 whilet 1000dobegins s t t t 1 end writeln s end 编程求1 2 3 1000 编程求1 3 5 n n 1 n 9999 这里n为奇数 programxh 2 vart n integer s longint begins 0 t 1 read n whilet ndobegins s t t t 2 end writeln s end 编程求1 3 5 n输入一行 只有一个整数n 1 n 9999 这里n为奇数 programex20 varn integer y longint beginread n y n 1 1 n div4 write y end 钱诗雨 计算的是10个数中的最大值和最小值 programa 2 vara b c d e f g h i x y integer beginreadln a b c d e f g h i ifa bthenx a y belsex b y a ifc xthenx c ifcxthenx d ifdxthenx e ifexthenx f iffxthenx g ifgxthenx h ifhxthenx i ifi ytheny i writeln x y readln end x y 7 programdx vara max min t integer beginread a max a min a t 9 repeatread a ifa maxthenmax a ifa minthenmin a t t 1 untilt 0 writeln max writeln min end a max min 5 1 7 8 0 11 9 20 9 3 输入一串字符 以 结束 分别输出其中大写字母 小写字母 数字 其它的个数 varch char a b c d integer beginread ch a 0 b 0 c 0 d 0 whilech dobegincasechof A Z a a 1 a z b b 1 0 9 c c 1 elsed d 1 end read ch end write a 5 b 5 c 5 d 5 end eA e55377EEw33 判断与累加d d 1inc d d d cinc d c d d 1dec d d d cdec d c 题37 任意输入一个整数 判断它是否为素数 是的话输出 T 不是的话输出 F Input输入只有一行 包括1个整数 Output输出只有一行 SampleInput57SampleOutputFHint 可以从定义 除了1与本身以外没有其它的约数 n整型t用来模拟约数f布尔型 programex 37 varn t integer f boolean beginread n f true t 2 whilet ndobeginifnmodt 0thenbeginf false break end t t 1 end ifn 1thenf false iff truethenwrite T elsewrite F end 5 2 3 4 对于任何输入的数 先假设它是素数 然后通过穷举 一旦能推翻 离开停止 Break停止当前的循环 programex 37 varn t integer f boolean beginread n f true t 2 whilet ndobeginifnmodt 0thenbeginf false break end t t 1 end ifn 1thenf false iff truethenwrite T elsewrite F end trunc sqrt n 36 从2到A的平方根的范围内 没有一个数能整除A 则A是质数 求两个正整数m和n的最大公约数 36 8 8 7 6 4 4是36与8的最大公约数 14567358 求两个正整数m和n的最大公约数 求两个正整数m和n的最大公约数 分析 求两个正整数的最大公约数采用的辗转相除法求解 以下是辗转的算法 分别用m n r表示被除数 除数 余数 求m n的余数r 若r 0 则n为最大公约数 若r 0 执行第 步 将n的值放在m中 将r的值放在n中 返回重新执行第 步 尼考曼彻斯法辗转相除法 2 r amodb a b b r 求两个正整数m和n的最大公约数 求两个正整数m和n的最大公约数 分析 求两个正整数的最大公约数采用的辗转相除法求解 以下是辗转的算法 分别用m n r表示被除数 除数 余数 求m n的余数r 若r 0 则n为最