Cod sursa(job #363656)

Utilizator LacitekBondici Laszlo Lacitek Data 14 noiembrie 2009 01:24:02
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.58 kb
var
    f,g : text;
    t,n,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,'cifra.in'); reset(f);
    assign(g,'cifra.out'); rewrite(g);
    readln(f,t);
    for i := 1 to t do
        begin
             readln(f,s);
             if length(s)>=2 then
                n := (ord(s[length(s)-1])-48)*10+ord(s[length(s)])-48
             else
                n := ord(s[length(s)])-48;
             writeln(g, ((n div 20)*4+v[n mod 20]) mod 10);
        end;
    close(f);
    close(g);
end.