某幼兒園里,有5個(gè)小朋友編號(hào)為1,2,3,4,5,他們按自己的編號(hào)順序圍

1、 某幼兒園里，有5個(gè)小朋友編號(hào)為1，2，3，4，5，他們按自己的編號(hào)順序圍坐在一張圓桌旁。他們身上都有若干個(gè)糖果，現(xiàn)在他們做一個(gè)分糖果游戲。從1號(hào)小朋友開始，將他的糖果均分三份（如果有多余的，則他將多余的糖果吃掉），自己留一份，其余兩份分給他的相鄰的兩個(gè)小朋友。接著2號(hào)、3號(hào)、4號(hào)、5號(hào)小朋友也這如果做。問一輪后，每個(gè)小朋友手上分別有多少糖果。program fentang;var a,b,c,d,e:integer;beginreadln(a,b,c,d,e);a:=a div 3;b:=b+a;e:=e+a;1號(hào)均分后，1、2、5號(hào)的糖果數(shù)變化情況b:=b div 3;c:=c+b;a:=

2、a+b;2號(hào)均分后，1、2、3號(hào)的糖果數(shù)變化情況c:=c div 3;b:=b+c;d:=d+c;3號(hào)均分后，2、3、4號(hào)的糖果數(shù)變化情況d:=d div 3;c:=c+d;e:=e+d;4號(hào)均分后，3、4、5號(hào)的糖果數(shù)變化情況e:=e div 3;d:=d+e;a:=a+e;5號(hào)均分后，4、5、1號(hào)的糖果數(shù)變化情況輸出結(jié)果writeln(a=,a);writeln(b=,b);writeln(c=,c);writeln(d=,d);writeln(e=,e);readln;暫停end.edbCa1program ex1;var x,y:integer;begin x:=0;y:=0; whi

3、le x32767y:longintinteger -32768.32767 2 帶符號(hào)16位longint-2147483648.2147483647 4 帶符號(hào)32位xy加數(shù)和220:編程求1+3+5+.+nInput 輸入一行，只有一個(gè)整數(shù)n (1=n=9999) 這里n為奇數(shù)。Output 輸出只有一行Sample Input 99Sample Output 2500編程求1+2+3+1000區(qū)別在哪里？3program xh_1;var t :integer; s:longint;begin s:=0; t:=1; while t=1000 do begin s:=s+t; t:=t

4、+1; end; writeln(s);end.編程求1+2+3+1000編程求1+3+5+nn (1=n=9999) 這里n為奇數(shù)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.4編程求1+3+5+.+n輸入一行，只有一個(gè)整數(shù)n (1=nb then x:=a;y:=b else x:=b;y:=a; if cx then x:=c; if cx then x:=d; if dx then x:=e

5、; if ex then x:=f; if fx then x:=g; if gx then x:=h; if hx then x:=i; if imax then max:=a; if amin then min:=a; t:=t-1; until t=0; writeln(max); writeln(min);end.amaxmin5178011-920937輸入一串字符，以?結(jié)束，分別輸出其中大寫字母、小寫字母，數(shù)字，其它的個(gè)數(shù)。var ch:char; a,b,c,d:integer;begin read(ch); a:=0; b:=0; c:=0; d:=0; while ch? d

6、o begin case ch of A.Z:a:=a+1; a.z:b:=b+1; 0.9:c:=c+1; else d:=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)8題37：任意輸入一個(gè)整數(shù)，判斷它是否為素?cái)?shù)。是的話輸出T,不是的話輸出F.Input 輸入只有一行，包括1個(gè)整數(shù)。Output 輸出只有一行.Sample Input 57 Sample Output F Hint （可以

7、從定義-除了1與本身以外沒有其它的約數(shù)）n 整型 t用來模擬約數(shù)f 布爾型9program ex_37;var n,t:integer; f:boolean;begin read(n); f:=true; t:=2; while tn do begin if n mod t =0 then begin f:=false;break; end; t:=t+1; end; if n=1 then f:=false; if f=true then write(T) else write(F) ;end.5234對(duì)于任何輸入的數(shù)，先假設(shè)它是素?cái)?shù)，然后通過窮舉，一旦能推翻，離開停止Break停止當(dāng)前的循

8、環(huán)10program ex_37;var n,t:integer; f:boolean;begin read(n); f:=true; t:=2; while tndo begin if n mod t =0 then begin f:=false;break; end; t:=t+1; end; if n=1 then f:=false; if f=true then write(T) else write(F) ;end.trunc(sqrt(n)3621831249從2到A的平方根的范圍內(nèi)，沒有一個(gè)數(shù)能整除A，則A是質(zhì)數(shù)11求兩個(gè)正整數(shù)m和n的最大公約數(shù)。36887644是36與8的最大

9、公約數(shù)14567 35812求兩個(gè)正整數(shù)m和n的最大公約數(shù)。求兩個(gè)正整數(shù)m和n的最大公約數(shù)。分析：求兩個(gè)正整數(shù)的最大公約數(shù)采用的輾轉(zhuǎn)相除法求解。以下是輾轉(zhuǎn)的算法：分別用m,n,r表示被除數(shù)、除數(shù)、余數(shù)。求m/n的余數(shù)r.若r=0,則n為最大公約數(shù).若r0,執(zhí)行第步.將n的值放在m中,將r的值放在n中.返回重新執(zhí)行第步。13 尼考曼徹斯法輾轉(zhuǎn)相除法：2r:=a mod b;a:=b;b:=r;14求兩個(gè)正整數(shù)m和n的最大公約數(shù)。求兩個(gè)正整數(shù)m和n的最大公約數(shù)。分析：求兩個(gè)正整數(shù)的最大公約數(shù)采用的輾轉(zhuǎn)相除法求解。以下是輾轉(zhuǎn)的算法：分別用m,n,r表示被除數(shù)、除數(shù)、余數(shù)。求m/n的余數(shù)r.若r=0,則n為最大公約數(shù).若r0,執(zhí)行第步.將n的