用freepascal怎么 – CSS – 前端 删除mmcss服务后怎么复原

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 begint:=t+n mod 10;n:=n div 10; end; writeln(‘sum=’,t); readlnend.这个和楼上差不多，只是运行起来美观点，而且可以报错（输入不是4位数的时候），就是报错了仍然会计算，为了简洁，就没填程序了，需要进一步帮助请给偶留言