主题：[讨论]这题是咋做啊
huangyb731
[专家分：630] 发布于 2010-11-13 21:28:00
一群牛、羊、猪，已知牛和羊的只数的和乘羊的只数等于猪的只数加120只，并且牛、羊、猪的只数都是质数，求牛、羊、猪的只数——（牛+羊）*羊=猪+120
还有——
打这个——
输入：5
输出：
11 7 4 2 1
16 12 8 5 3
20 17 13 9 6
23 21 18 14 10
25 24 22 19 15
and——
自然数的拆分。
输入5
输出：5=1+1+1+1+1
5=1+1+1+2
5=1+2+2
5=1+1+3
5=1+4
5=2+3
输入N（N>=2 N<=9）
——————
从1-100中找出质因数最多的数
输出（例）：
90（个数）：2，3，……
-------------
再来
ABC+DEF=GHIJ 这些字母代表0-9之间的数，不能重复，G=1，有多少种方案
打印出式子来，每行4个
……—_—
1，2，3，4，5，6这6个数如下格式输出，前一排上右边的数大于左边的数，并且同一列下面的大于上面的数
* * *
* * *
[em21][em22][em24][em10]——
给出4个非0的数，打印出由这四位数组成的所有四位数及个数
[fly][em18][em17][em14][em10][em7][em3][em1][em2][/fly]
最后更新于：2010-11-13 21:48:00
回复列表 （共19个回复）
沙发
huangyb731 [专家分：630] 发布于 2010-11-13 21:54:00
moz大大快来~
板凳
huangyb731 [专家分：630] 发布于 2010-11-14 18:00:00
幽灵啊
你们用什么书
3 楼
huangyb731 [专家分：630] 发布于 2010-11-14 20:09:00
[em65][em61][em70][em60][em59]回啊
4 楼
lwf159753 [专家分：60] 发布于 2010-11-15 19:40:00
贱b。
5 楼
lwf159753 [专家分：60] 发布于 2010-11-15 19:40:00
还[em59]
6 楼
lwf159753 [专家分：60] 发布于 2010-11-15 19:43:00
LZJ、幽灵、moz大大快来！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
7 楼
幽灵密码 [专家分：3510] 发布于 2010-11-15 20:47:00
CLS
DO
INPUT n
LOOP UNTIL n mod 2 = 1
i = 1
j = n
DIM a(n, n)
FOR x = 1 TO n * n
a(i, j) = x
i = i + 1
j = j + 1
IF j > n OR i > n THEN
IF x - (n * n) \ 2 <= (n \ 2) THEN
b = b + 1
j = j - b - 1
i = 1
ELSE
b = b - 1
i = i - b - 1
j = 1
END IF
END IF
IF x = n * n THEN i = n: j = n
NEXT x
FOR i = 1 TO n
FOR j = 1 TO n
PRINT USING "####"; a(i, j);
NEXT j
PRINT
NEXT i
END
输入：5
输出：
11 7 4 2 1
16 12 8 5 3
20 17 13 9 6
23 21 18 14 10
25 24 22 19 15
8 楼
幽灵密码 [专家分：3510] 发布于 2010-11-16 17:06:00
1.
CLS
FOR a = 2 TO 1000
FOR b = 2 TO 1000
FOR c = 2 TO 1000
a(1) = a: a(2) = b: a(3) = c
FOR i = 1 TO 3
FOR j = 2 TO FIX(SQR(a(i)))
IF a(i) MOD j = 0 THEN GOTO 1
NEXT j
NEXT i
IF (a + b) * b = c + 120 THEN PRINT a; b; c: END
1 NEXT c
NEXT b
NEXT a
END
结果牛2头，羊11只，猪23头
9 楼
幽灵密码 [专家分：3510] 发布于 2010-11-16 17:44:00
CLS
DIM a(100)
FOR i = 1 TO 100
FOR j = 2 TO i \ 2
IF i MOD j = 0 THEN
FOR k = j \ 2 TO 2 STEP -1
IF j MOD k = 0 THEN 1
NEXT k
a(i) = a(i) + 1
END IF
1 NEXT j
IF a(i) >= max THEN max = a(i): p = i
NEXT i
PRINT LTRIM$(STR$(p) + ":" + STR$(max))
END
结果为90
10 楼
huangyb731 [专家分：630] 发布于 2010-11-16 19:21:00
九楼是哪题？
ABC+DEF=GHIJ 这些字母代表0-9之间的数，不能重复，G=1，有多少种方案
打印出式子来，每行4个
一群牛、羊、猪，已知牛和羊的只数的和乘羊的只数等于猪的只数加120只，并且牛、羊、猪的只数都是质数，求牛、羊、猪的只数——（牛+羊）*羊=猪+120
这两题[em3][em3]知道了
我来回复
您所在位置：