作业帮给出一个正整数N（N
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/04/29 23:06:12
给出一个正整数N（N
var s,n,i,j:longint;begin readln(n); for i:=1 to n do begin j:=i; while j>0 do begin inc(s,j mod 10); j:=j div 10; end; end; writeln(s);end.
再问： 可是大哥要用数组比较好啊他是小于等于9999的啊。
可以用数组吗。。？？？
加分哟。
而且要用free pascal的版本，你那是turbo啊。。。而且你这个程序错了啊
再答： 老兄，你不知道FP全面兼容TP哪？这个程序哪里错了？题目没有要求我用数组做啊？法律没禁止即是可行的－－－－不是这样吗？
怎么搞了一通还要您来帮我找错啊？我楞是找不出错在哪里:-(
再问： 可是大哥要用数组比较好啊他是小于等于9999的啊。
可以用数组吗。。？？？
加分哟。
而且要用free pascal的版本，你那是turbo啊。。。而且你这个程序错了啊
再答： 老兄，你不知道FP全面兼容TP哪？这个程序哪里错了？题目没有要求我用数组做啊？法律没禁止即是可行的－－－－不是这样吗？
怎么搞了一通还要您来帮我找错啊？我楞是找不出错在哪里:-(