回 帖 发 新 帖 刷新版面

主题:6题

1.设三段线段长度分别为a、b、c,且a>=b>=c>0,写一个程序,判别给出a、b、c能否组成一个三角型?
2.将字符A,B,C,D或a,b,c,d转换成1,2,3,4,其余的转成5。
3.求N个整数的最大公约数和最小公倍数。
4.猴子吃枣问题。猴子摘了一堆枣,第一天吃了一半,还嫌不过瘾,又吃了一个;第二天又吃了剩下的一半零一个;以后每天如此。到第十天,猴子一看只剩下一个了。问最初有多少个枣子?
5.任给一个自然数n,求出这个自然数不同因数的个数。例如 n=6时,因为1,2,3,6这四个数均是6的因数,故输出为total=4
6、打印一万以内的完全数(亲和数),完全数定义:一个数的因子和等于这个数本身的那么这个数就称作为完全数,例6的因子和1+2+3=6则6为完全数。(此题目的因子和都不包括本身这个因子)
全部要文本格式

回复列表 (共13个回复)

11 楼

4.
OPEN "1.out" FOR OUTPUT AS #2
n = 1
FOR i = 9 TO 1 STEP -1
n = (n + 1) * 2
NEXT i
PRINT #2, n
CLOSE
END

12 楼

5.
OPEN "1.in" FOR INPUT AS #1
OPEN "1.out" FOR OUTPUT AS #2
INPUT #1, n
DIM n AS LONG
FOR i = 1 TO n \ 2
IF n MOD i = 0 THEN total = total + 1
NEXT i
PRINT #2, total
CLOSE
END

13 楼

6.
OPEN "1.out" FOR OUTPUT AS #2
FOR j = 1 TO 10000
FOR i = 1 TO n \ 2
IF j MOD i = 0 THEN s = s + i
NEXT i
IF s = j THEN PRINT #2, j
s = 0
NEXT j
CLOSE
END

我来回复

您尚未登录,请登录后再回复。点此登录或注册