pascal入門測試6(答案)

《pascal入門測試6(答案)》由會員上傳分享，免費在線閱讀，更多相關內容在教育資源-天天文庫。

1、馬克思手稿中有一道趣味數學問題：有30個人，其中有男人、女人和小孩，在一家飯館吃飯共花了50先令；每個男人花3先令，每個女人花2先令，每個小孩花1先令，；編程計算男人、女人和小孩的人數。vara,b,c:integer;beginfora:=1to10doforb:=1to(50-a*3)div2dobeginc:=(30-a-b);ifa*3+b*2+c=50thenwriteln(a:5,b:5,c:5);end;readln;end.一個兩位整數A本身是素數，若將其個位數字與十位數字交換，得到一個新的兩位數B，而B也是素

2、數，我們則稱A為無暇素數。例如：31是素數，個位數字與十位數字交換后得到13，也是素數。所以31是無暇素數。問題：給出二個兩位整數M,N(M

3、(k<=trunc(sqrt(i)))andfdoifimodk=0thenf:=falseelsek:=k+1;g:=true;k:=2;while(k<=trunc(sqrt(j)))andgdoifjmodk=0theng:=falseelsek:=k+1;iffandgthenifhthenwrite(i)elsebeginh:=false;write(‘,’,i);end;end;writeln;readln;End.給出一個自然數N（1≦N≦100），可得到從1開始到N為止的N個自然數，現要求出這N個數的全部各個數

4、位上的數字之和。例如：當N=12時，這12個數是：1，2，3，4，5，6，7，8，9，10，11，12。則這12個數的數字之和為：1+2+3+4+5+6+7+8+9+1+0+1+1+1+2=51【樣例輸入】N=12【樣例輸出】51varn,t,x,s:integer;beginwrite('N=');readln(n);t:=0;s:=0;repeatt:=t+1;x:=t;whilex>0dobegins:=s+xmod10;x:=xdiv10;end;untilt=n;writeln(s);readln;end.一個合數（

5、質數的反數），去掉最低位，剩下的數仍是合數，再去掉剩下的數的最低位，余留下來的數還是合數，這樣反復，一直到最后剩下的一位數仍為合數，我們把這樣的數稱為純粹合數。求所有的三位純粹合數。varn,i,n1,a,t,j:integer;f:boolean;begina:=0;forn:=200to999dobegint:=0;n1:=n;forj:=1to3dobeginf:=true;i:=2;while(i<=trunc(sqrt(n1)))andfdoifnmodi=0thenf:=false;elsei:=i+1;iff=f

6、alsethent:=t+1;n1:=n1div10;end;ift=3thena:=a+1;end;writeln;writeln(a);end.若一個數(首位不為零)從左向右讀與從右向左讀都一樣，我們就將其稱之為回文數。例如：給定一個十進制數56，將56加65(即把56從右向左讀)，得到121是一個回文數。寫一個程序，給定一個十進制數N，判斷與它的從右向左讀的數相加后所得到的數是否是回文數。樣例：．INPUTN=123OUTPUTYESvarn,a,b,c,d:integer;beginwrite('N=');readln

7、(n);a:=n;b:=0;whilea>0dobeginb:=b*10+amod10;a:=adiv10;end;n:=n+b;c:=n;d:=0;whilec>0dobegind:=d*10+cmod10;c:=cdiv10;end;ifn=dthenwriteln('Yes')elsewriteln('No');readln;end.若將一個正整數化為二進制數，在此二進制數中，我們將數字1的個數多于數字0的個數的這類二進制數稱為A類數，否則就稱其為B類數。例如：(13)10=(1101)2其中1的個數為3，0的個數為1，

8、則稱此數為A類數；(10)10=(1010)2其中1的個數為2，0的個數也為2，稱此數為B類數；(24)10=(11000)2其中1的個數為2，0的個數為3，則稱此數為B類數；程序要求：輸入1～1000之中(包括1與1000)的一個正整數，輸出它是A類數還是B類數。[輸入輸出