Cod sursa(job #921854)

Utilizator gabimoiseMoise Gabriel gabimoise Data 21 martie 2013 17:58:51
Problema Cifra Scor 80
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.01 kb
program cifra;
var f,g:text;
    s:string;
    t,c,n,nr,x,i:longint;
begin
  assign(f,'cifra.in');reset(f);
  assign(g,'cifra.out');rewrite(g);
  readln(f,t);
  for i:=1 to t do
    begin
      c:=0;
      readln(f,s);
      n:=length(s);
      if n>2 then nr:=100*(ord(s[n-2])-ord('0'))+10*(ord(s[n-1])-ord('0'))
                      +(ord(s[n])-ord('0'));
      if n=2 then nr:=10*(ord(s[n-1])-ord('0'))+(ord(s[n])-ord('0'));
      if n=1 then nr:=ord(s[n])-ord('0');
      c:=c+(nr div 20)*4;
      x:=nr mod 20;
      case x of
        1:c:=c+1;
        2:c:=c+5;
        3:c:=c+12;
        4:c:=c+18;
        5:c:=c+23;
        6:c:=c+29;
        7:c:=c+32;
        8:c:=c+38;
        9:c:=c+47;
        10:c:=c+47;
        11:c:=c+48;
        12:c:=c+54;
        13:c:=c+57;
        14:c:=c+63;
        15:c:=c+68;
        16:c:=c+74;
        17:c:=c+81;
        18:c:=c+85;
        19:c:=c+94;
      end;
      c:=c mod 10;
      writeln(g,c);
    end;
  close(f); close(g);
end.