Pascal 输入一个整数,求这个数的各位数字之和语言编程


Pascal 输入一个整数,求这个数的各位数字之和语言编程

文章插图
program a;var re,s,ws:real; i,ii:integer;beginreadln(re);s:=10;ws:=10;i:=1;while ws>9 do beginws:=re/s;s:=s*10;i:=i+1;end;writeln('wei shu ',i);end.判定该数的位数代码各位之和应该很简单了吧
【Pascal 输入一个整数,求这个数的各位数字之和语言编程】

    推荐阅读