教学一下.....第一天想学这个...
pascal吧
全部回复
仅看楼主
level 1
GET_Close 楼主
所谓完全数，就是这个数除了它本身的约数之和也等于这个数，比如说6的约数有1、2、3，而1+2+3=6，所以6是个完全数。
编程输入一个整数n，如果n是完全数输出Yes，否则输出No。Sample Input6Sample OutputYesSample Input100Sample OutputNo
2013年12月08日 11点12分 1
level 1
GET_Close 楼主
没人教一下么 = =
2013年12月08日 11点12分 2
level 1
GET_Close 楼主
= =......
2013年12月08日 11点12分 3
level 11
Alin芒果消失
[高高兴兴]
2013年12月08日 12点12分 4
level 9
lsdzyl
找出它的约数来作一下累加，然后再判断。
2013年12月09日 00点12分 5
level 12
🔥贽殿丶遮那🔥
var ans,n,i:longint;
begin
readln(n);ans:=0;
for i:=1 to n do
if n mod i=0 then inc(ans,i);
if ans=n then writeln('Yes')
else wirteln('No');
end.
2013年12月09日 04点12分 6
1