奇幻數字 |
|
尚未結案
|
|
shning
一般會員   發表：7 回覆：0 積分：1 註冊：2004-04-06 發送簡訊給我 |
請問怎麼寫一個程式，顯示一個九位數，其前面一位數能被一整除，前面二位數能被二整除，...以此類推，前面九位數能被九整除。把所有滿足此情形的數字列出，還有分二種情形，一種是 0 ~ 9 (數字不重複)，一種是 1 ~ 9 (數字不重複)。 例如： 0 8 1 6 5 4 3 2 7 1. 0 / 1 == 0
2. 08 / 2 == 0
3. 081 / 3 == 0
4. 0816 / 4 == 0
5. 08165 / 5 == 0
6. 081654 / 6 == 0
7. 0816543 / 7 == 0
8. 08165432 / 8 == 0
9. 081654327 / 9 == 0
|
|
chilanlin
一般會員 發表：3 回覆：10 積分：2 註冊：2004-01-17 發送簡訊給我 |
|
|
GGL
資深會員   發表：104 回覆：600 積分：335 註冊：2006-11-05 發送簡訊給我 |
int a,b,c,d,e,f,g,h,i;
AnsiString night;
int temp_b,temp_c,temp_d,temp_e,temp_f,temp_g,temp_h,temp_i;
for(a=0;a<=9;a )
{
for(temp_b=0;temp_b<=9;temp_b )
{
if((IntToStr(a) IntToStr(temp_b)).ToInt()%2==0)
{
b=temp_b;
for(temp_c=0;temp_c<=9;temp_c )
{
if((IntToStr(a) IntToStr(b) IntToStr(temp_c)).ToInt()%3==0)
{
c=temp_c;
for(temp_d=0;temp_d<=9;temp_d )
{
if((IntToStr(a) IntToStr(b) IntToStr(c) IntToStr(temp_d)).ToInt()%4==0)
{
d=temp_d;
for(temp_e=0;temp_e<=9;temp_e )
{
if((IntToStr(a) IntToStr(b) IntToStr(c) IntToStr(d) IntToStr(temp_e)).ToInt()%5==0)
|
|
GGL
資深會員 發表：104 回覆：600 積分：335 註冊：2006-11-05 發送簡訊給我 |
{
e=temp_e;
for(temp_f=0;temp_f<=9;temp_f )
{
if((IntToStr(a) IntToStr(b) IntToStr(c) IntToStr(d) IntToStr(temp_e) IntToStr(temp_f)).ToInt()%6==0)
{
f=temp_f;
for(temp_g=0;temp_g<=9;temp_g )
{
if((IntToStr(a) IntToStr(b) IntToStr(c) IntToStr(d) IntToStr(temp_e) IntToStr(temp_f) IntToStr(temp_g)).ToInt()%7==0)
{
g=temp_g;
for(temp_h=0;temp_h<=9;temp_h )
{
if((IntToStr(a) IntToStr(b) IntToStr(c) IntToStr(d) IntToStr(temp_e) IntToStr(temp_f) IntToStr(temp_g) IntToStr(temp_h)).ToInt()%8==0)
{
h=temp_h;
for(temp_i=0;temp_i<=9;temp_i )
{
if((IntToStr(a) IntToStr(b) IntToStr(c) IntToStr(d) IntToStr(temp_e) IntToStr(temp_f) IntToStr(temp_g) IntToStr(temp_h) IntToStr(temp_i)).ToInt()%9==0)
{
|
|
GGL
資深會員 發表：104 回覆：600 積分：335 註冊：2006-11-05 發送簡訊給我 |
i=temp_i;
TStringList *pList = new TStringList();
pList->Add(a);pList->Add(b);pList->Add(c);
pList->Add(d);pList->Add(e);pList->Add(f);
pList->Add(g);pList->Add(h);pList->Add(i);
pList->Sorted=true;
AnsiString nine_temp;
nine_temp=pList->Strings[0] pList->Strings[1] pList->Strings[2] pList->Strings[3]
pList->Strings[4] pList->Strings[5] pList->Strings[6] pList->Strings[7]
pList->Strings[8];
if(nine_temp=="123456789" || nine_temp=="023456789" || nine_temp=="013456789" ||
nine_temp=="012456789" || nine_temp=="012356789" || nine_temp=="012346789" ||
nine_temp=="012345789" || nine_temp=="012345689" || nine_temp=="012345679" ||
nine_temp=="012345678")
{
night=IntToStr(a) IntToStr(b) IntToStr(c) IntToStr(d)
IntToStr(e) IntToStr(f) IntToStr(g) IntToStr(h) IntToStr(i);
Memo1->Lines->Add(night);
}
}
......
|
|
GGL
資深會員 發表：104 回覆：600 積分：335 註冊：2006-11-05 發送簡訊給我 |
發表時間：2004-05-11 22:05:21
IP:210.66.xxx.xxx 未訂閱
系統時間：2024-06-26 12:20:00
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |