【1027】正整数每位数累加

来源:互联网 发布:文明5 mac 语言 编辑:程序博客网 时间:2024/06/05 04:34

这里写图片描述

var a,i,k,s:longint;var N:string[10];begin        readln(N);        s:=0;        for i:=1 to 10 do begin                k:=ord(N[i])-ord('0');                if (k>=0) and (k<=9) then begin                        inc(s,k);                end                else break;        end;        write(S);end.