Cod sursa(job #363650)

Utilizator LacitekBondici Laszlo Lacitek Data 14 noiembrie 2009 00:50:03
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.68 kb
program cifre;
var
    f,g : text;
    t,n,err,i : integer;
    vek : array[1..30000] of byte;
    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
                n := (ord(s[length(s)-1])-48)*10 + (ord(s[length(s)])-48)
             else
                n := ord(s[length(s)])-48;
             vek[i] := ((n div 20)*4+v[n mod 20]) mod 10;
        end;
    for i := 1 to t do
        writeln(g,vek[i]);
    close(f);
    close(g);
end.