连续的3个相差10的质数谢谢了,题目是这样的：456,466,476三个自然数,分别减去同一个数a,得到的差都是质数.a=?

Question

连续的3个相差10的质数谢谢了,
题目是这样的：456,466,476三个自然数,分别减去同一个数a,得到的差都是质数.a=?

Answer 1

我是用编程的方法.得到的结果是453.Var i :LongInt; Function Prime(x :LongInt) :Boolean; Var j :LongInt; flag :Boolean; Begin flag := TRUE; If x < 2 Then flag := FALSE; For j := 2 To Trunc(Sqrt(x)) Do If x MOD j = 0 Then Begin flag := FALSE; Break; End; Prime := flag; End; Begin For i := 1 To 454 Do If Prime(456 - i) AND Prime(466 - i) AND Prime(476 - i) Then Writeln(i); End.