1樓：去天理存人欲
將1，2，3，4，5這五個數字排成一排，最後乙個數是奇數，且使得其中任意連續三個數之和都能被這三個數中的第乙個數整除，那麼滿足要求的排法有幾種
2樓：匿名使用者
dim a(4) as string
private sub command1_click()
list1.clear
for i = 1 to 4
a(i) = trim(str(i))
next i
for i1 = 1 to 4
for i2 = 1 to 4
if i2 <> i1 then
for i3 = 1 to 4
if i3 <> i1 and i3 <> i2 then
for i4 = 1 to 4
if i4 <> i1 and i4 <> i2 and i4 <> i3 then
list1.additem a(i1) & a(i2) & a(i3) & a(i4)
end if
next i4
end if
next i3
end if
next i2
next i1
for i = 0 to list1.listcount - 1
if 素數(cint(list1.list(i))) then list2.additem list1.list(i)
next i
end sub
private function 素數(m as long) as boolean
素數 = true
for i = 2 to sqr(m)
if m mod i = 0 then
素數 = false
exit for
end if
next i
end function
python，編寫程式，輸出所有由1，2，3，4這四個數字組成的素數，並且在每個素數中每個數字只能使用一次
3樓：問明
def num_list():
list=[1,2,3,4]
list1=
for i in list:
for j in list:
if i==j:
continue
for k in list:
if(i==k)or(j==k):
continue
for n in list:
if(i==n)or(j==n)or(k==n):
continue
num=1000*i+100*j+10*k+n
return list1
def sushu(num):
for i in range(2,num):
if num%i==0:
return'false'
else:
continue
return'true'
if __name__=='__main__':
list1=num_list()
for i in range(len(list1)):
num=int(list1)
if(sushu(num)=='true'):
print(num)
printf()用法：
printf()函式是格式化輸出函式,一般用於向標準輸出裝置按規定格式輸出資訊。在編寫程式時經常會用到此函式。函式的原型為：
int printf(const char*format,...);函式返回值為整型。若成功則返回輸出的字元數，輸出出錯則返回負值。
printf()函式的呼叫格式為:
printf("《格式化字串》",《參量表》);其中格式化字串包括兩部分內容：
一部分是正常字元,這些字元將按原樣輸出；
另一部分是格式化規定字元，以"%"開始,後跟乙個或幾個規定字元，用來確定輸出內容格式。
參量表是需要輸出的一系列引數,其個數必須與格式化字串所說明的輸出；引數個數一樣多，各引數之間用","分開，且順序一一對應,否則將會出現意想不到的錯誤。
規定符%d十進位制有符號整數
%u十進位制無符號整數
%f浮點數
%s字串
%c單個字元
%p指標的值
%e指數形式的浮點數
%x,%x無符號以十六進製制表示的整數
%o無符號以八進位制表示的整數
%g把輸出的值按照%e或者%f型別中輸出長度較小的方式輸出
%p輸出位址符
%lu 32位無符號整數
%llu 64位無符號整數
4樓：嘀嗒嘀嗒
你這樣實現不了，因為c取值只要滿足下面判斷不等於0就會輸出乙個數值，會有重複項
vb 編寫編寫程式,輸出由1,2,3,4,5,6這六個數字組成的所有可能的兩位數,並統計個數
5樓：匿名使用者
dim a()
dim temp as string = ","
dim n as integer
dim i, j, k, t, y, u as integera = split("1,2,3,4,5,6", temp)n = ubound(a)
dim cou as integer = 0if trim(a(ubound(a))) = "" then n = ubound(a) - 1
textbox1.text = ""
for i = 0 to n - 1
for j = i + 1 to n
textbox1.text = textbox1.text & a(i) & a(j) & vbcrlf
textbox1.text = textbox1.text & a(j) & a(i) & vbcrlf
cou += 2
next j
next i
msgbox(cou)
6樓：
private sub command1_click()for i = 1 to 6
for j = 1 to 6
n = n + 1
next
next
print n
end sub
編寫程式輸入正整數n統計n中不同數字出現
大野瘦子 程式為 include int main while num 0 num 10 for i 0 i 10 i 注意事項 public class test01 system.out.println 共出現了 count 次 砍侃看 include int main while num 0 ...
VB解題 編寫程式找出所有小於1000的完數
1 首先開啟，新建乙個專案。2 然後新增標頭檔案。3 接著新增main函式。4 然後定義i，j，k，n，sum。5 接著定義乙個陣列。6 然後使用第一層for迴圈。7 接著使用第二層for迴圈，用來求出每位的數字。8 使用if條件判斷語句。9 最後執行程式看看結果。完全數 perfect numbe...
C語言有3 4的矩陣，用c語言編寫程式找出其中值最大的元素，並輸出最大值 最大值所在的行號和列號
言寶 沒出現一次a i j 比max大的情況，用a i j 替換掉max，那麼把所有的數值迴圈一遍後，留下的就是最大的，因為沒有被比它更大的替換掉，所以沒有比max更大的數 小八 max表示最大值 a i j 表示橫下標為i 列下標為j 的二維陣列a 的值假設陣列的值大於max就執行這句max a ...