大數輾轉相除法

輸入兩個不限制長度之正整數，並使用輾轉相除法求最大公因數。



輸入:

1234567890
5000

輸出:

10

輾轉相除法

輸入兩數，求最大公因數、最小公倍數。

限定使用輾轉相除法


輸入:
91
34

輸出:
1
3094

test

Private Sub Form_Load()
Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2

Dim N1 As String, N2 As String, B As String, NS1 As Integer, NS2 As Integer, PLUS, tmp
Input #1, N1
Input #1, N2





Do Until Len(N1) = Len(N2)
If Len(N1) > Len(N2) Then
N2 = "0" & N2
Else
N1 = "0" & N1
End If
Loop
If N1 > N2 Then B = N1 Else B = N2
tmp = 0

For i = Len(B) To 1 Step -1

NS1 = Mid(N1, i, 1)
NS2 = Mid(N2, i, 1)

L = NS1 + NS2

If L + tmp <= 9 Then ans = (L + tmp) & ans Else ans = (L + tmp) Mod 10 & ans: tmp = (L + tmp) \ 10
If i = 1 And L + tmp > 9 Then ans = "1" & ans
Next

Print #2, ans

Close
Close

End
End Sub

簡易大數減法

輸入兩數N1、N2，做大數的減法。 (N1、N2皆無限制)



輸入:
1000000000000000000000000
1

輸出:
999999999999999999999999

簡易大數乘法

輸入2個數 N1、N2 。 (0 < N1)、(0 < N2 < 100)

求出N1與N2的乘積。



輸入:
100000000000000
99
輸出:

9900000000000000

簡易大數加法

求兩筆數字N的和。 (N為正整數，長度不限)


輸入:

9999999999999999999999999999999999999999999999999999999999999999999999999999
1000


輸出:

10000000000000000000000000000000000000000000000000000000000000000000000000999

排序

排序
給n 個數字，請把它們由大到小排序好。

輸入說明：
輸入檔含有多組測試資料，每組測試資料有兩行，第一行的數字n 為有幾個數字要排序，
第二行則有n 個整數n ≤ 1000，而每個要排序數字的範圍為[-10000, 10000]間的整數。
輸出說明：
輸出已排序好的數列，每個數字之間用一個空白隔開。
輸入範例：

5
1 2 3 4 5
5
-5 -4 -3 -2 -1

輸出範例：
5 4 3 2 1
-1 -2 -3 -4 -5

判斷是否為11 的倍數

給一個正整數n，請寫一個程式，判斷n 是否為11 的倍數？
輸入說明：
第一行的數字，表示有幾組測試資料，第二行開始即為第一筆測試資料。每筆測試資料
為一個正整數，數字的位數，最高有可能到1000 位。
輸出說明：
對每一筆測試資料，輸出是否為 11 的倍數。是的話請輸出1，反之則輸出0。
輸入範例：
2
24841983960
121

輸出範例：
0
1

分解後次方和

求 1~100000 中，其分解的N次方和恰等於原來的數。
請依次方大小依序列出

( 2 <= N <= 10 )

範例:

153 = 1^3 + 5^3 + 3^3

輸出:

153 的 3 次方和與 153 相符
370 的 3 次方和與 370 相符
371 的 3 次方和與 371 相符
407 的 3 次方和與 407 相符
1634 的 4 次方和與 1634 相符
8208 的 4 次方和與 8208 相符
9474 的 4 次方和與 9474 相符
4150 的 5 次方和與 4150 相符
4151 的 5 次方和與 4151 相符
54748 的 5 次方和與 54748 相符
92727 的 5 次方和與 92727 相符
93084 的 5 次方和與 93084 相符

1000 到 9999 不重複的數

從 1000 到 9999 中找出數字不能重複的數，並將符合條件者全部印出。


例如: 1234