给出一个正整数N(N
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/05 05:07:14
给出一个正整数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哪?这个程序哪里错了?题目没有要求我用数组做啊?法律没禁止即是可行的----不是这样吗?
怎么搞了一通还要您来帮我找错啊?我楞是找不出错在哪里:-(