一个自然数 除以7余数是5 除以9余数是3 除以11余数是4 问这个数最小是几 (列出计算过程)

var i:Integer;
begin
memo1.Lines.Clear;
for i:=1 to 1000000 do
if (i mod 7=5) and (i mod 9=3) and (i mod 11=4) then
memo1.Lines.Append(IntToStr(i));
end;
end.

懂编程的可以用这个公式算算

7+5=12 12除以7余数是5 除以9余数是3
12+63n=(11+55n)+(8n-3)+4
8n-3是11倍数
8n-3=11k
n最小是10
这个数最小是12+63*10=12+630=642
编程我不会
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-01-27
Option Explicit

Private Sub Command1_Click()
Dim i%
For i = 1 To 1000
If (i Mod 7 = 5) And (i Mod 9 = 3) And (i Mod 11 = 4) Then Exit For
Next i
Print i
End Sub

参考资料:642