是個問題：兩個從1-100的整數，把他們進行加減乘除后結果相加為243，求這兩個數。要完整流程
1 回答
天涯盡頭無女友
TA貢獻1831條經驗 獲得超9個贊
Var a, b, he, cha, ji, shang : Integer;
Begin
For a := 1 To 100 Do
For b := a To 100 Do { 為避免重復，也為了節省時間，假定b是相對大數。 }
Begin
If NOT ((a MOD b = 0) OR (b MOD a = 0)) Then Continue;
{ 兩數不能整除就繼續下一循環 } he := a + b; { 和 }
cha := Abs(a - b); { 差。Abs 求絕對值 }
ji := a * b; { 積 }
If a > b { 商 }
Then shang := a DIV b
Else shang := b DIV a; If he + cha + ji + shang = 243 Then Writeln(a, ' ', b);
End; Readln;
End.
- 1 回答
- 0 關注
- 704 瀏覽
添加回答
舉報
0/150
提交
取消