Problem2:(11%)
有一個n位數的正整數A,請問刪除其中k個連續或不連續的位數 (k <n)、將剩下的數字依序合併形成一個新的正整數B,B的最大可能值是多少?(請注意,A和B的首位都不能是0)。
輸入說明:
奇數列有兩個以空白隔開的正整數n及k (1 ≤ k < n ≤ 1000000)。偶數列會有一個長度為n的正整數A。
輸出說明:
請輸出B的最大可能值。
輸入範例:
6 4
268574
5 2
41235
輸出範例:
87
435
Dim ori, del, num As Double
回覆刪除Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do
Input #1, ori, del, num
i = 1
Do
num = Replace(num, i, "")
i = i + 1
Loop Until Len(Str(num)) - 1 = ori - del
Print #2, num
Loop Until EOF(1)
Close #2
Close #1
End
End Sub