Cod sursa(job #363645)

Utilizator LacitekBondici Laszlo Lacitek Data 14 noiembrie 2009 00:28:24
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.52 kb
program cifre;
var
    f,g : text;
    t,n,err,i : integer;
    s : string;
const
    v : array[0..19] of byte = (0,1,5,2,8,3,9,2,8,7,7,8,4,7,3,8,4,1,5,4);
begin
    assign(f,'cifre.in'); reset(f);
    assign(g,'cifre.out'); rewrite(g);
    readln(f,t);
    for i := 1 to t do
        begin
             readln(f,s);
             if length(s)>2 then s:=copy(s,length(s)-1,length(s));
             val(s,n,err);
             writeln(g,((n div 10)*4+v[n mod 10]));
        end;
    close(f);
    close(g);
end.