（1） 求1-1000以内所有完全平方数..1 求1-1000以内所有完全平方数.2 从键盘输入若干个数,以0结束,统计正数和负数的个数.

来源：学生作业帮助网 编辑：作业帮 时间：2024/11/16 16:45:32
（1） 求1-1000以内所有完全平方数..1 求1-1000以内所有完全平方数.2 从键盘输入若干个数,以0结束,统计正数和负数的个数.
xS]KA+ nl/%T!M +DⰙfS|ҨAARlK('֐_٬O ޝ 0s=s83҃:=>UD+5~cK|%<浦o*8w ix]w'|k;i`0cY;@b6y[cM,dE͔ɜ!G@"S4ߨ@5Y{g$vPn`:@6 jƀWc?F@7/:4K'o8.h%>EɬiU (K ْ.Y él%_Md}KƬabe 'ruPBxTc r-hXrE0B;<ΔFp%^; Di\E9`ďg C˧Wh!DXE3? dr&

（1） 求1-1000以内所有完全平方数..1 求1-1000以内所有完全平方数.2 从键盘输入若干个数,以0结束,统计正数和负数的个数.
（1） 求1-1000以内所有完全平方数..
1 求1-1000以内所有完全平方数.
2 从键盘输入若干个数,以0结束,统计正数和负数的个数.

（1） 求1-1000以内所有完全平方数..1 求1-1000以内所有完全平方数.2 从键盘输入若干个数,以0结束,统计正数和负数的个数.
Private Sub Command1_Click()
Dim i%,k%
For i = 1 To 1000
If Int(Sqr(i)) = Sqr(i) Then Print i,:k = k + 1
If k Mod 5 = 4 Then Print:k = 0
Next
End Sub
Private Sub Command2_Click()
Dim OS%,JS%,m$
m = InputBox("请输入一个整数")
Do While Not IsNumeric(m)
m = InputBox("请输入一个整数")
Loop
Do While Val(m) CInt(m)
m = InputBox("请输入一个整数")
Loop
m = CInt(m)
Do While m 0
If m Mod 2 = 0 Then OS = OS + 1 Else JS = JS + 1
m = CInt(InputBox("请输入一个整数"))
Do While Not IsNumeric(m)
m = InputBox("请输入一个整数")
Loop
Do While Val(m) CInt(m)
m = InputBox("请输入一个整数")
Loop
m = CInt(m)
Loop
Print "共输入："
Print "奇数 " & JS & " 个,偶数 " & OS & " 个"
End Sub

（1） 求1-1000以内所有完全平方数..1 求1-1000以内所有完全平方数.2 从键盘输入若干个数,以0结束,统计正数和负数的个数. C语言计算1000以内的完全数如果一个数等于它所有非自身的约数的和,即为完全数,例如6所有非自身约数为1,2,3,而6=1+2+3,所以6为完全数.求1000以内的所有完全数.麻烦帮我看看这段代码哪里错了#i 求所有质数p 使得｛2^（p-1）-1｝/p是一个完全平方数. 1到1000以内不是完全平方数,也不是完全立方数的数有几个?急 求[1000,9999]内所有完全平方数的和 编程：求1000以内的所有完全数.（说明：一个数如果恰好等于它的因子—（自身除外）之和,则称该数为完全 30以内完全平方数? 2000以内完全平方数有几个?怎么求？ 30以内所有完全数之和 编程求1000以内的所有完全数.完全数指的是一个数恰好等于它的所有因子的和.如：6=1+2+3,6是一个完全数#include #include #include const int n=1000;int main(){int a[n];int i,j,m=0;for(i=0;i 在2500以内所有完全平方数中能被9整除的数有几个 在2000以内的所有完全平方数中,能被9整除的有几个? 1000以内的完全平方数帮帮忙吧 第1题：求出不大于100只有6个不同约数的所有自然数.第2题：2100除以一个两位数得到的玉树是56,求这个两位数.第3题：3000乘以自然数a得到一个完全平方数,求a的最小值.第4题：在1000以内（含10 100000以内的完全平方数 Pascal列出1〜1000内的所有既是完全平方数又是回文数的整数 输入一万以内的数,满足如下条件的所有整数他加上一百后是个完全平方数 求1000到9999内所有完全平方数的和