• 网站首页
• 网站建设
• 短视频
• 网站推广
• 网站模板
• 客户案例
• 资讯动态
• 关于我们

用freepascal怎么_CSS学习

当前位置：网站建设 > 技术支持

用freepascal怎么？

var n,i,t:integer;begin write('input the number:'); readln(n); if (n9999) then writeln('input error!'); t:=0; for i:=1 to 4 do begin t:=t+n mod 10; n:=n div 10; end; writeln('sum=',t); readlnend.这个和楼上差不多，只是运行起来美观点，而且可以报错（输入不是4位数的时候），就是报错了仍然会计算，为了简洁，就没填程序了，需要进一步帮助请给我留言

版权说明：
本网站凡注明“广州京杭 原创”的皆为本站原创文章，如需转载请注明出处！
本网转载皆注明出处，遵循行业规范，如发现作品内容版权或其它问题的，请与我们联系处理！
欢迎扫描右侧微信二维码与我们联系。