第一问答网»论坛 › 中问网 › 问答 › 求从键盘输入一个数后判断该数是否为完数如果是输出该数 ...

求从键盘输入一个数后判断该数是否为完数如果是输出该数为完数否则不输出该数,请问如何编写这段pascal程序

[复制链接]

11 |

2 | 2008-11-9 13:40:59 | 显示全部楼层 |阅读模式

越简单越好，谢谢！

使用道具举报

千问 | 2008-11-9 13:40:59 | 显示全部楼层

program wanshu;var i,sum,n:longint;beginreadln(n);sum:=0;for i:=1 to n div 2 do if n mod i=0 then inc(sum,i);if sum=n then writeln('True') else writeln('False');end.这个程序是现编的，如有错误请见谅。这个题目不太难，你应该看得懂是什么意思，我就不解释了。...

使用道具举报