consolep.dpr

来自「dephi的一些小程序啊」· DPR 代码 · 共 15 行

program digsum;

{$APPTYPE CONSOLE}
  var n, hundred,decade,digit,sum:integer;
begin
 write('n=?');
 readln(n);
 hundred:=n div 100;
 decade:=(n mod 100)div 10;
 digit:=n mod 10;
 sum:=hundred+decade+digit;
 writeln('sum(',n,')=',sum);
 readln;
end.