求各数位上的数字之和〔任意位数〕假如是一个确定位数的数，求各数位上数字之和，可以只用 read 和 write如，确定输入的是一个三位数 346readln(n);a:=n mod 10;b:=n div 10 mod 10;c:=n div 100;writeln(a+b+c);但是假如是一个不确定位数的数字，那就不行了，只能使用 while 循环来编写输入 1369 输出 19readln(n);s；＝0；while n>0 do begin x:=n mod 10; //提取个数的数字 n:=n div 10; //把 n 的个数数字去掉，变成去掉个数的数 s:=s+x; 把 x 里面存的个数数字累加起来 end;writeln(s);列表格分析每一次的变化 Xns循环开始前0136901 次循环后913692 次循环后613153 次循环后31184 次循环后1019
