在10~100这些自然数中,那些能被3整除的数有几个?被3除余数是1,被3除余数是2的数有几个?

同学,请看：
氨基酸：每种氨基酸分子至少都含有一个氨基（—NH2）和一个羧基（—COOH),并且都有一个氨基一个羧基连接在同一个碳原子上.
脱水缩合：一个氨基酸分子的羧基（-COOH）和另一个氨基酸分子的氨基（-NH2）相连接,同时脱去一分子水,形成-CONH-,这种方式叫做脱水缩合反应.
肽键：连接两个氨基酸分子的化学键（—NH—CO—）叫做肽键.
多肽：就是由多个氨基酸分子脱水缩合而合成的,含有多个肽键的化合物,叫做多肽.

画点阵来观察
A来横向 100,101个点
B来纵向 10~100 91个点
观察这个四方的101x91的阵
A=B是坐标(0,0) (1,1) .(100,100)的集合
这里由於B从10开始,所以只有(10,10)...(100,100)这些点
A=B一共91个坐标
A>B是右下三角形区域,共(90+89+...1)个坐标点=91*45个
方阵一共91x101个坐标,
P(A>B)=91*45/91*101=45/101
P(A=B)=91/91*101=1/101
P(AC)=(80+...1)/81*101=81*40/81*101=40/101
P(A=C)=81/81*101=1/101
P(AC)= (80+...1)/81*91=40/91
P(B=C)=81/81*91=1/91
P(BA&B)=(S91)/总数=287280/744471
-----------------------------------------------------------------
P(B>A&C)
AC阵
0,100 100,100
0,20 100,20
B=21开始算,因为之前B不可能大於C
B=21时
(0,20).(20,20)
21x1个 A&CB&C)=206280/744471

114=2×3×19
所以114在10到100之间的约数有19,38和57
所以有3种

Private Sub Command1_Click()
Dim a(29) As Integer,tmp As Integer
Dim i As Integer,j As Integer
Randomize Time
For i = 0 To 29
a(i) = Int(Rnd * 71) + 30
Next
For i = 0 To 29
For j = i To 29
If a(i) > a(j) Then
tmp = a(i)
a(i) = a(j)
a(j) = tmp
End If
Next
Next
For i = 0 To 29
Print a(i);
If i = 14 Then Print
Next
End Su

所有的整型应该用long long 比较好吧
s=s+fact(t);
if(s>=n)//这里如果n=2000000000,那么S有可能会溢出int的,这样就会错了
{
n=n-(s-fact(t));
break;
}

clear
set talk off
n=0
for i=10 to 100
if i%7=0 or i%9=0
n=n+1
endif
endfor
"10~100内能被7或9中的一个整除的整数的个数是",n
set talk on
return

这样给你说:
你在学习数学时候老师会告诉你：球体的体积越小,相对应的表面积与体积的比值就会越大,而这个比值就意味着细胞与外界交换物质的能力强弱.
在生物体中,细胞与外界交换物质的频繁程度与细胞自身的存货情况密切相关,所以细胞趋近于小的原因也大抵如此.
细胞趋近于小,细胞与外就的物质交换就越方便,对于大型生物而言,就能够尽可能保证身体细胞的物质需求,也就利于生物自身