發表新討論
#9099: __..


lsleogyh (顾衍豪)

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.

ZeroJudge Forum