一个自然数 除以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.Ap
来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/19 09:41:36
一个自然数 除以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.Ap
一个自然数 除以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 除以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.Ap
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
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