某幼儿园里-有5个小朋友编号为1-2-3-4-5-他们按自己的编号顺序围.pptVIP

某幼儿园里，有5个小朋友编号为1，2，3，4，5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有假设干个糖果，现在他们做一个分糖果游戏。从1号小朋友开始，将他的糖果均分三份〔如果有多余的，那么他将多余的糖果吃掉〕，自己留一份，其余两份分给他的相邻的两个小朋友。接着2号、3号、4号、5号小朋友也这如果做。问一轮后，每个小朋友手上分别有多少糖果。programfentang;

vara,b,c,d,e:integer;

begin

readln(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.edbCa

programex1;varx,y:integer;beginx:=0;y:=0;whilex1000dobeginx:=x+1;y:=y+x;end;write(y);end.1+2+….1000估算1001:longintinteger-32768..327672?带符号16位longint-2147483648..2147483647?4?带符号32位

xy加数和

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+……+nn(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;

begin

?readln(a,b,c,d,e,f,g,h,i);

?ifabthenx:=a;y:=b

????????elsex:=b;y:=a;

?ifcxthenx:=c;ifcytheny:=c;

?ifdxthenx:=d;ifdytheny:=d;

?ifexthenx:=e;ifeytheny:=e;

?iffxthenx:=f;iffytheny:=f;

?ifgxthenx:=g;ifgytheny:=g;

?ifhxthenx:=h;ifhytheny:=h;

?ifixthenx:=i;ifiytheny:=i;

?writeln(x,y);

?readln;

end.xy7

programdx;vara,max,min,t:integer;begin