’vb代碼
Private Sub Command1_Click()
Dim i As Long
Do
i = i + 1
If i Mod 5 = 1 And i Mod 6 = 5 And i Mod 7 = 4 And i Mod 11 = 10 Then Exit Do
Loop
Print i
End SubC編程#include
編寫程序求解下述韓信點兵問題：
編寫程序求解下述韓信點兵問題：
有一對士兵,從1至5依次報數(shù)時,最后1人報1,；從1至6依次報數(shù)時,最后一人報5；從1至7依次報數(shù)時,最后一人報4；從1至11依次報數(shù)時,最后一人報10；求出該對士兵人數(shù).
有一對士兵,從1至5依次報數(shù)時,最后1人報1,；從1至6依次報數(shù)時,最后一人報5；從1至7依次報數(shù)時,最后一人報4；從1至11依次報數(shù)時,最后一人報10；求出該對士兵人數(shù).
其他人氣：187 ℃時間：2020-02-03 02:45:58
優(yōu)質(zhì)解答
‘2111個士兵
’vb代碼
Private Sub Command1_Click()
Dim i As Long
Do
i = i + 1
If i Mod 5 = 1 And i Mod 6 = 5 And i Mod 7 = 4 And i Mod 11 = 10 Then Exit Do
Loop
Print i
End SubC編程#include int main() { long i; i=0; while(1) { i++; if(i % 5==1 && i % 6==5 && i % 7==4 && i %11 ==10)break; } printf (" %d\n",i); getch(); }
’vb代碼
Private Sub Command1_Click()
Dim i As Long
Do
i = i + 1
If i Mod 5 = 1 And i Mod 6 = 5 And i Mod 7 = 4 And i Mod 11 = 10 Then Exit Do
Loop
Print i
End SubC編程#include
我來回答
類似推薦
- 韓信點兵解題原理
- 前些天 偶爾翻到一本書
- 關(guān)于韓信點兵與孫子問題的那一道題怎么解?
- 韓信點兵類問題求解
- 衛(wèi)兵一隊列成五行縱隊,末行一人；列成六行縱隊,末行五人；列成七行縱隊,末行四人；列成十一行縱隊,末行十人.求兵數(shù).
- 大小行星繞地球公轉(zhuǎn)的共同特點是什么
- 2sin45度+|負根號2|-根號8+（3分之一）負一次方
- 長100米寬100米是多少平米和幾畝地 長50米寬50米是多少平米和幾畝地
- 急求一篇英語對話兩人的關(guān)于How do you plan your university years?
- "疑是銀河落九天"的"九天"是什么意思?
- 怎么證明(m+n)^2/2+(m+n)/4>mn^(1/2)+nm^(1/2),已知m>0,n>0
- 這段話是否有語法錯誤(英語)
猜你喜歡
- 1急 若(2X(的三次方 - (KX)的平方+3被2X+1除后余2,求K的值
- 2I like some bread and milk for breakfast.在這個句子
- 3連詞成句：a,tomorrow,I,have,test,late,I,stay,can't,out,because
- 4是不是只有熱的物體才能發(fā)光?
- 5根號Y-1與根號1-2X互為相反數(shù),求根號Y除以X
- 6如圖,已知B為線段AC上的一點,M是線段AB的中點,N為線段AC的中點,P為NA的中點,Q為MA的中點,求MN:PQ的值.
- 7設A*是三階方陣A的伴隨矩陣,若|A|=2,則秩R(A*)=?
- 8英語單詞大全
- 9宮本武藏的藏的發(fā)音是zang還是cang?
- 10運輸隊要運2000件玻璃器皿，按合同規(guī)定，完好無損運到的每件付運輸費1.2元，如有損壞，每件沒有運輸費外，還要賠償6.7元，最后運輸隊得到2005元，運輸中損壞了多少件玻璃器皿？
- 11Newspapers and magazines have special interest in the private lives of famous people.
- 1212生肖中,善良的動物有