求1~1500连续自然数的全部数字之和
摘要：
编了个程序来解决 1 var a,b,c,d,i,sum1,sum2,sum3,sum4:longint; 2 begin 3 sum1:=0; 4 for i:=1 to 9 do inc(sum1,i); 5 writeln(sum1); 6 sum2:=0; 7 for i... 阅读全文
posted @ 2014-06-14 20:41 欣乐 阅读(678) 评论(0) 推荐(0) 编辑