天涯尽头无女友
Var a, b, he, cha, ji, shang : Integer;BeginFor a := 1 To 100 DoFor b := a To 100 Do { 为避免重复,也为了节省时间,假定b是相对大数。 }BeginIf 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 bElse shang := b DIV a; If he + cha + ji + shang = 243 Then Writeln(a, ' ', b);End; Readln;End.