回 帖 发 新 帖 刷新版面

主题:考试题

3、输入一个整数,判断它能否被3,5,7整除,并输出以下信息之一:
1)能同时被3,5,7整除
2)能被其中的两个数(说明哪两个数,如3和5,或5和7;或3和7)整除
3)只能被其中一个整除(说明是哪一个数)
4)不能被3,5,7任何一个整除 

回复列表 (共10个回复)

沙发

CLS
INPUT n
IF n MOD 3 = 0 THEN s = s + 1: PRINT 3,
IF n MOD 5 = 0 THEN s = s + 1: PRINT 5,
IF n MOD 7 = 0 THEN s = s + 1: PRINT 7
IF s = 0 THEN PRINT "no"
END


[em1][em2][em3][em4][em5][em6][em7][em8][em9][em10][em11][em12][em13][em14][em15][em16][em17][em18][em19][em20][em5][em4][em6][em7][em8][em9][em13][em16][em16][em16][em16][em16][em16][em16][em16][em16][em16][em16][em16]

板凳

加分!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

3 楼

谢谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

4 楼


上面的程序是错的哦!!!!!!![em20]

5 楼

看不懂啊,兄弟们加我   qq  769590538   记得哦

6 楼

cls
input n
if n mod 3=0 and n mod 5=0 and n mod 7=0 then ?"满足(1)":end
if n mod 3=0 and n mod 5=0 or n mod 5=0 and n mod 7=0 or n mod 3=0 and n mod 7=0 then 
if n mod 3=0 then ?3;
if n mod 5=0 then ?5;
if n mod 7=0 then ?7;
?"满足(2)":end
END IF
if n mod 3=0 or n mod 5=0 or n mod 7=0 then 
if n mod 3=0 then ?3;
if n mod 5=0 then ?5;
if n mod 7=0 then ?7;
?"满足(3)":end
END IF
if n mod 3<>0 and n mod 5<>0 and n mod 7<>0 then ?"满足(4)":end
end
if有点长,但是对的.(2)(3)条件有些麻烦,但容易理解.

7 楼

6楼的程序不对!

8 楼

现在对吗?帮忙调试一下.........

9 楼

t=0:a=0:b=0:c=0
input x
if x mod 3=0 then a=1
if x mod 5=0 then b=1
if x mod 7=0 then c=1
t=a+b+c
if t=0 then
   print "不能被3,5,7任何一个整除"
elseif t=3 then
   print "能同时被3,5,7整除"
elseif t=2 then
      if a and b then print 3,5
      if a and c then print 3,7
      if b and c then print 5,7
else
     if a=1 then print 3
     if b=1 then print 5
     if c=1 then print 7
end if
end

10 楼

CLS
INPUT n
IF n MOD 3 = 0 THEN PRINT "3",
IF n MOD 5 = 0 THEN PRINT "5",
IF n MOD 7 = 0 THEN PRINT "7",
IF n MOD 3 <> 0 AND n MOD 5 <> 0 AND n MOD 7 <> 0 THEN PRINT "no"

我来回复

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