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

输入一串字符，以?结束，分别输出其中大写字母、小写字母，数字，其它的个数。 * * 某幼儿园里，有5个小朋友编号为1，2，3，4，5，他们按自己的编号顺序围坐在一张圆桌旁。他们身上都有若干个糖果，现在他们做一个分糖果游戏。从1号小朋友开始，将他的糖果均分三份（如果有多余的，则他将多余的糖果吃掉），自己留一份，其余两份分给他的相邻的两个小朋友。接着2号、3号、4号、5号小朋友也这如果做。问一轮后，每个小朋友手上分别有多少糖果。 program fentang;var a,b,c,d,e:integer;begin　readln(a,b,c,d,e);　a:=a div 3;b:=b+a;e:=e+a;{1号均分后，1、2、5号的糖果数变化情况}　b:=b div 3;c:=c+b;a:=a+b;{2号均分后，1、2、3号的糖果数变化情况}　c:=c div 3;b:=b+c;d:=d+c;{3号均分后，2、3、4号的糖果数变化情况}　d:=d div 3;c:=c+d;e:=e+d;{4号均分后，3、4、5号的糖果数变化情况}　e:=e div 3;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. e d b C a program ex1; var x,y:integer; begin x:=0;y:=0; while x1000 do begin x:=x+1; y:=y+x; end; write(y); end. 1+2+….1000 估算1001y:longint integer　 　-32768..32767　　　 2　　? 　带符号16位 longint　-2147483648..2147483647? 　4　　　? 带符号32位 x y 加数 和 20:编程求1+3+5+...+n Input 输入一行，只有一个整数n (1=n=9999) 这里n为奇数。 Output 输出只有一行 Sample Input 99 Sample Output 2500 编程求1+2+3+……+1000 区别在哪里？ program xh_1; var t :integer; s:longint; begin s:=0; t:=1; while t=1000 do begin s:=s+t; t:=t+1; end; writeln(s); end. 编程求1+2+3+……+1000 编程求1+3+5+……+n n (1=n=9999) 这里n为奇数 program xh_2; var t,n:integer;  s:longint; begin s:=0; t:=1; read(n); while t=n do begin s:=s+t; t:=t+2; end; writeln(s); end. 编程求1+3+5+...+n 输入一行，只有一个整数n (1=n=9999) 这里n为奇数。 program ex20;var n:integer;???? y:longint;begin read(n);?? y:=(n+1)*(1+n) div 4; write(y);end. 钱诗雨  计算的是10个数中的最大值和最小值 program a_2;var a,b,c,d,e,f,g,h,i,x,y:integer;begin? readln(a,b,c,d,e,f,g,h,i);? if ab then x:=a;y:=b???????? else x:=b;y:=a;? if cx then x:=c; if cy then y:=c;? if dx then x:=d; if dy then y:=d;? if ex then x:=e; if ey then y:=e;? if fx then x:=f; if fy then y:=f;? if gx then x:=g; if gy then y:=g;? if hx then x:=h; if hy then y:=h;? i