運發(fā)動號碼牌〔number.bas〕號碼1“1”12號碼是“6”，只有1張“6”號碼牌；而李飛的號碼是“1111”4“1”號碼牌組成。愛動腦筋的小杰就想了：假設學校的運發(fā)動數(shù)是N,這十種號碼牌多少張呢？請你編寫一個〔24〕【樣例輸入】(鍵盤輸入運發(fā)動人數(shù)N,N<2000)15〔分別對應號碼0-9需要的張數(shù)〕1822221111DOINPUTNLOOPUNTILN>0ANDN<2000DIMA$(N)DIMS(0TO9)FORI=1TONA$(I)=MID$(STR$(I),2)NEXTIFORI=0TO9FORJ=1TONS$=MID$(STR$(I),2)L=LEN(A$(J))FORK=1TOLIFMID$(A$(J),K,1)=S$THENS(I)=S(I)+1NEXTKNEXTJNEXTIFORI=0TO9PRINTS(I);NEXTIEND找朋友〔friend.bas〕看到自己的號碼是“1111”小杰思考了一會說：“按二進制換算，我的號碼才是‘1111’呢”。果真不錯，十進制的“15”換算成二進制可不是“1111”4‘1’，4‘1’、號碼數(shù)值比我的大且數(shù)值差最小的1-NM〔26〕【樣例輸入】(鍵盤輸入某位同學的十進制數(shù)號碼M)17〔他和他的朋友的號碼的十進制形式及二進制形式〕17:1000118:10010INPUTNDIMA(N),B(N)Y=N:J=1:S=0DOWHILEY<>0R=YMOD2A(J)=RY=Y\2J=J+1IFR=1THENS=S+1LOOPFORI=N+1TO2500Y=I:JJ=1:SS=0DOWHILEY<>0R=YMOD2B(JJ)=RY=Y\2JJ=JJ+1IFR=1THENSS=SS+1LOOPIFSS=STHENEXITFORNEXTIIFI>2500THENPRINT“NO“:ENDPRINTN;“:“;FORK=J-1TO1STEP-1PRINTUSING“#“;A(K);NEXTKPRINTPRINTI;“:“;FORK=JJ-1TO1STEP-1PRINTUSING“#“;B(K);NEXTKEND推算〔calc.basN〔N<=2001-NA(1)~A(N)〔26〕【樣例輸入】(鍵盤輸入N、A(1)~A(N))4，0，0，1，3〔按現(xiàn)在的隊列挨次輸出原來的運發(fā)動號碼〕3，1，2，4INPUTNDIMA(N),B(N),C(N)FORI=1TONINPUTA(I)NEXTIFORI=NTO1STEP-1B(I)=A(I)+1FORJ=1TONIFC(J)<>0AND(J<B(I)ORJ=B(I))THENB(I)=B(I)+1NEXTJC(B(I))=1NEXTIFORI=1TONPRINTB(I);NEXTIEND隊列〔queue.bas〕N1~N以有N位男生和N獨在隊列中〔11。請你編程幫助小杰計算一下共有多少種方案？N從鍵盤輸入，N<100，要求輸出準確數(shù)值。如：N=47〔24〕【樣例輸入】(鍵盤輸入N)4〔方案數(shù)〕7INPUTNDIMA(N)ASDOUBLEIFN>=1THENA(1)=1IFN>=2THENA(2)=2IFN>=3THENA(3)=4FORI=4TONA(I)=2*A(I-1)-A(I-2)+A(I-3)NEXTIPRINTA(N)END2004n(n<100)，現(xiàn)在要選出一個同學當班長。承受的方法1kk1kk隊時，從頭開頭數(shù)，應當站在什么位置。請你編程幫小雪實現(xiàn)。(20例如：輸入：1003CLSINPUT“n=“;nINPUT“k=“;kDIMa(n):s=nFORi=1TOn:a(i)=1:NEXTii=0:b=1DOUNTILs=k-23p=0DOUNTILp=ki=i+b:IFi>nORi<1THEN2p=p+a(i):IFs=k-1ANDa(i)=1THENPRINTi:ENDLOOPa(i)=0s=s-1LOOP2b=-b:GOTO3【問題描述】(12分)

歌德巴赫猜測4開頭直至任一給定的大于4的偶數(shù)分解為兩個素數(shù)并打印出來。例如：輸入：10輸出：4=2+2 6=3+3 8=3+5 10=3+7【程序清單】INPUTNFORI=4TONSTEP2X=1X=X+1IFX=2THEN70FORP=2TOSQR(X)IFXmodＰ＝０THEN30NEXTPY=Ｉ－ＸIFY=2THEN110FORP=2TOSQR(Y)IFＹmodＰ=0THEN30NEXTPPRINTI;“=“;X;“+“;Y,NEXTIEND乘車費用〔taxi.bas/taxi.pas/taxi.c〕【問題描述】WW和幾個同學一起幫助W2.562.5公里之后按1.2/101.2/公里的根底上加價50%，費WWNMW【輸入文件】輸入文件共有一行，包含兩個整數(shù)N，M，分別表示出租車行駛的里程和中間停車的時間，中間以空格分開，0≤N≤200，0≤M≤60?！据敵鑫募枯敵鰞H包含一個整數(shù)，表示小W應付的乘車費用，四舍五入到整數(shù)元。【輸入樣例】87【輸出樣例】14OPEN“taxi.in“FORINPUTAS#1OPEN“taxi.out“FOROUTPUTAS#2INPUT#1,n,mIFn>10THENs=6+(n-2.5)*1.2+(n-10)*1.2*.5ELSEIFn>2.5THENs=6+(n-2.5)*1.2ELSEIF(n<=2.5)AND(n>0)THENs=6ELSEs=0ENDIFENDIFENDIFfy=INT(s+m\5+.5)PRINT#2,LTRIM$(STR$(fy));CLOSEEND裝球問題(151，2，3，??。同時有K(K＞0)，現(xiàn)將K個小球裝入到盒子中去，裝入規(guī)章如下：第一個盒子不能空；裝入必需嚴格按遞增的挨次進展；K=8，N=6：1，2，51，3，4在滿足上面的兩個條件下，要求有球的盒子盡量多；裝完之后，相鄰盒子中球個數(shù)差確實定值之和為最小(未裝的盒子不

如上例中：裝入法1，2，5則差確實定值之和為：2-1+5-2=4裝入法1，3，4則差確實定值之和為：3-1+4-3=3【程序要求】給出K(K表示小球個數(shù))之后，求出滿足上述四個條件的裝放方法?！舅惴枋觥緼，用數(shù)組元素代表盒子，然后依次裝入小球?！境绦蚯鍐巍縉=20DIMA(N)INPUTKj=1DOWHILEK>=JA(j)=j:K=K-J :j=j+1LOOPL=J-1DOWHILEK<>0A(L)=A(L)+1:K=K-1:L=L-1LOOPFORI=1TOJ-1 PRINTA(I);NEXTEND分解質因數(shù)(存盤程序名：yinshu.bas)問題描述分解質因數(shù)是小學數(shù)學中常見的問題，現(xiàn)在給定一個正整數(shù)N，請你編程序對N分解質因數(shù)，并將分解式輸出。數(shù)據(jù)輸入：從文件yinshu.in中讀入數(shù)據(jù)，文件中只有一個正整數(shù)NN<=3276。數(shù)據(jù)輸出：結果輸出到文件yinshu.out中，只有一行，就是N分解成質因子的連乘積的式子，并且要求按因子從小到大從左到右的格式輸出。輸入輸出樣例樣例一：Yinshu.in24Yinshu.out24=2*2*2*3樣例二：Yinshu.in13Yinshu.out13=13CLSOPEN“yinshu.in“FORINPUTAS#1OPEN“yinshu.out“FOROUTPUTAS#2DOINPUT#1,nLOOPUNTILn<=32767ANDn>0x=2PRINT#2,n;“=“;IFn>-1ANDn<2THENPRINT#2,n:ENDDOIFn=xTHENPRINT#2,x:EXITDOIFnMODx=0THENPRINT#2,x;“*“;:n=n/xELSEx=x+1LOOPCLOSEEND程序２clsdoinputaloopuntila<=32767anda>=1b=2ifa>-1anda<2then?a:enddoifa=bthen?b:exitforifamodb=0