3x ≡ 7(mod2)
2x ≡ 5(mod3)
5x ≡ 4(mod7)
我在R中解决了这个同余，如下所示
> modlin(3,7,2)
[1] 1
> modlin(2,5,3)
[1] 1
> modlin(5,4,7)
[1] 5
> a<-c(1,1,5)
> m<-c(2,3,7)
> chinese(a,m)
[1] 19
> prod(2,3,7)
[1] 42
所以，我得到了正确答案x = 19（mod 42）
在这种情况下，GCD（2,3,7）= 1，假设ax≡b（mod p），cx≡d（mod q），gx≡h（mod s）与GCD（p，q，s） ）不等于1然后我知道如何用手工扩展中国剩余定理来解决这个方程但我不知道在R.请告诉我在R ??中解决