主题：跪求高手指导啊
qcpnet
[专家分：0] 发布于 2008-12-05 10:09:00
统计从m到n之间（包括m ,n且0<m<n<10000）所有能被2整除但不能被3整除的整数个数。如3到10之间，有3个数：4、8、10符合条件。
【样例】
输入：2，10
输出：4
2、 编写程序，其功能是: 打印如要求图案下图形。
键盘输入的某个数字n（n是小于10的整数），就输出几层图案。
例如
输入： 5（输入的字母不考虑大小写）
则输出
1 ******** ******** 1
2 ******** ******** 2
3 ******** ******** 3
4 ******** ******** 4
5 ******** ******** 5
3、真因子和等于它本身的数称为完数，例28的真因子是1，2，4，7，14，且1 + 2 + 4 + 7 + 14 = 28，则28为完数。输入m,n（0<m<n<10000），输出m至n之间所有的完数。
【样例】
输入：1,10
输出：6
4、一块木板高110厘米，有个小虫由地面向上爬，每分钟爬上50厘米，每爬1分钟就要休息1分钟，在这休息时间内下滑30厘米，当小虫爬到顶部还要休息2分钟，再按原路爬回地面，问共用多少分钟？
5、随机输入两个大小不定的总数，编写程序求这两个数的和。 结果的位数小于200位。
键盘输入n和m，求出m与 n相加的结果。
例如
输入：15 4
输出：19
表示15与4的和是19。
回复列表 （共4个回复）
沙发
lifengjiang [专家分：480] 发布于 2008-12-18 08:50:00
一:
input m,n
for i=m+1 to n-1
if i mod 2 =0 then
if i mod 3 <>0 then
print i,
end
end
next i
end
板凳
hxy_anhui [专家分：320] 发布于 2009-01-29 15:47:00
1.
CLS
INPUT M, N
FOR I = M TO N
IF I MOD 2 = 0 AND I MOD 3 <> 0 THEN S = S + 1
NEXT I
PRINT S
END
2.
CLS
INPUT N
FOR I = 1 TO N
PRINT TAB((N + 1 - I) * 2 - 1); LTRIM$(STR$(I)); " "; STRING$(8, "*"); SPC(I * 2 - 1); STRING$(8, "*"); " "; LTRIM$(STR$(I))
NEXT I
END
3.
CLS
INPUT M, N
FOR I = M TO N
S = 0
FOR J = 1 TO I - 1
IF I MOD J = 0 THEN S = S + J
NEXT J
IF S = I THEN PRINT I;
NEXT I
END
4.
CLS
DO
F = F + 1
IF W = 0 THEN
IF F MOD 2 = 1 THEN X = X + 50 ELSE X = X - 30
ELSEIF F MOD 2 = 1 THEN X = X - 30 ELSE X = X - 50
END IF
IF X >= 110 THEN F = F + 2 : W = 1 : X = X - 60
LOOP UNTIL X <= 0
PRINT F
END
5.
CLS
INPUT A$
LA = LEN(A$)
INPUT B$
LB = LEN(B$)
PRINT A$; "+"; B$; "=";
IF LA < LB THEN LC = LB + 1 ELSE LC = LA + 1
DIM A(LC), B(LC), C(LC)
FOR I = 1 TO LA : A(I) = VAL(MID$(A$, LA + 1 - I, 1)) : NEXT I
FOR I = 1 TO LB : B(I) = VAL(MID$(B$, LB + 1 - I, 1)) : NEXT I
FOR I = 1 TO LC : X = A(I) + B(I) + G : G = X \ 10 : C(I) = X MOD 10 : NEXT I
DO WHILE C(LC) = 0 AND LC > 1 : LC = LC - 1 : LOOP
FOR I = LC TO 1 STEP -1 : PRINT LTRIM$(STR$(C(I))); : NEXT I
END
我今年四年级，别忘了给我加分！
3 楼
oqoq [专家分：130] 发布于 2009-05-10 16:18:00
5.input a,b
print a+b
感觉太简单了，但你到底是什么意思我还是没搞懂。
4 楼
1054122 [专家分：750] 发布于 2009-05-17 16:31:00
1.
CLS
INPUT m, n
IF m > 0 AND m < 10000 AND n > 0 AND n < 10000 THEN
FOR i = m TO n
IF i MOD 2 = 0 AND i MOD 3 <> 0 THEN
PRINT i;
END IF
NEXT i
END IF
END
2.
CLS
INPUT n
FOR i = 1 TO n
PRINT SPC((n - i) * 2 - 1); LTRIM$(STR$(i)); " "; STRING$(8, "*"); SPC(i * 4 - 1);STRING$(8, "*"); " "; LTRIM$(STR$(i))
NEXT i
END
3.
CLS
INPUT m, n
FOR i = m TO n
he = 0
FOR j = 1 TO i - 1
IF i MOD j = 0 THEN
he = he + j
END IF
NEXT j
IF he = i THEN
PRINT i;
END IF
NEXT i
END
我来回复
您所在位置：