pascal編程與答案(編輯修改稿)
2025-08-23 09:04 本頁面
【文章內容簡介】 f string。 s,b:string。 flag:boolean。begin readln(n)。 readln(s)。 readln(b)。 j:=1。repeat i:=pos(39。 39。,s)。 if i0 then begin a[j]:=copy(s,1,i1)。 j:=j+1。 delete(s,1,i)。 end else begin a[j]:=s。 s:=39。 39。 end。until s=39。 39。{ for j:= 1 to n do write(a[j])。end.}k:=length(b)。 flag:=false。for j:=1 to n do beginfor i:=1 to k do if pos(b[i],a[j])0 then flag:=true else break。 if flag then begin writeln(a[j])。 break。 end。end。end.四、摘紅蘋果（100分）（存盤程序名：T4）小明爺爺家有棵蘋果樹，樹上高低不一的長了N個蘋果。一天，M個小朋友到爺爺家做客，爺爺說：你們每人最多可以摘兩個蘋果，而且只許伸手摘，不允許借助其它工具，摘下的蘋果大家分享。由于小朋友的身高參差不齊，怎樣才能使他們摘的蘋果總數(shù)最多呢？請你計算機小朋友們最多能摘到多少個蘋果？輸入：N M(N=100,M=20) N個整數(shù)（以空格相隔），分別表示每個蘋果的高度 M個整數(shù)（以空格相隔），分別表示每個小朋友伸手能達到的高度。輸出：一個整數(shù)例如：輸入：10 41
法律信息相關推薦
鄂ICP備17016276號-1