vb.输入任意一正整数n,若每位数的平方和能被5整除,则输出yes.否则输出no
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/06/11 20:56:07
vb.输入任意一正整数n,若每位数的平方和能被5整除,则输出yes.否则输出no
Private Sub Command1_Click()
Dim i As Integer,j As Integer,s As Single,n As String
n = InputBox("enter data n:")
For i = 1 To Len(n)
j = Val(Mid(n,i,1))
s = s + j ^ 2
Next i
Print s
If s Mod 5 = 0 Then
Print "yes"
Else
Print "no"
End If
End Sub
再问: 谢谢啦,谢谢
再答: 采纳我的答案啥!
Dim i As Integer,j As Integer,s As Single,n As String
n = InputBox("enter data n:")
For i = 1 To Len(n)
j = Val(Mid(n,i,1))
s = s + j ^ 2
Next i
Print s
If s Mod 5 = 0 Then
Print "yes"
Else
Print "no"
End If
End Sub
再问: 谢谢啦,谢谢
再答: 采纳我的答案啥!
vb.输入任意一正整数n,若每位数的平方和能被5整除,则输出yes.否则输出no
C语言编程 试判断从键盘输入的正整数能被5和7同时整除.能则输出“YES”,否则输出“NO”
编写一个C语言程序.输入一个整数,判断n的每位数字是否都相同,若相同则输出“YES”,否则输出NO.
7.以下程序可判断输入的一个整数是否能被3或7整除,若能整除,输出“yes”,否则输出“no”.请填空.#i
Description 输入正整数n,试编程输出n以内能被5和7整除的数.(不包括n)
试编程判断输入的正整数是5或者是7的整数倍.若是,则输出yes;否则输出no.
试编程判断输入的正整数是否既是3又是5的整倍数.若是,则输出yes,否则输出no..
输入一个正整数,编程判断其是否既是5又是7的倍数.若是,则输出“yes”;否则输出“no”.
pascal 输入一个整数n,请你判断n是否是质数.输入一个数n,如果是质数则输出yes 否则输出no 用break语句
输入一个正整数,判断每个数从高位到低位各位数字是否按值从小到大排列,如果是则输出“yes”,否则输出“no”.其中inp
pascal输入一个整数,如果它是7的倍数,则输出‘yes’,否则输出‘no’.
输入一个正整数A,如果A的各个数字之和为7的倍数则输出‘YES’,否则输出‘NO’ Turbo pascal