Cod sursa(job #363654)

Utilizator LacitekBondici Laszlo Lacitek Data 14 noiembrie 2009 01:14:42
Problema Cifra Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.51 kb
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,'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 s := copy(s,length(s)-1,length(s));
             val(s,n,err);
             writeln(g, ((n div 20)*4+v[n mod 20]) mod 10);
        end;
    close(f);
    close(g);
end.