d086. 態度之重要的證明 -- 成功電研20th~21st C++ ～最後的競賽～ | From: [222.66.36.254] | 發表日期 : 2014-08-21 15:42

var

  i,s:longint;

  p:boolean;

  a:string;

begin

  while not eof do begin

    readln(a);

    s:=0;

    p:=true;

    if (a[1]='0')and(length(a)=1) then continue;

    for i:=1 to length(a) do begin

      case a[i] of

        'a'..'z': s:=s+ord(a[i])-96;

        'A'..'Z': s:=s+ord(a[i])-64;

        else begin writeln('Fail'); p:=false; break; end;

      end;

    end;

    if p then writeln(s);

  end;

end.