Cod sursa(job #43371)

Utilizator Bluedrop_demonPandia Gheorghe Bluedrop_demon Data 29 martie 2007 23:55:12
Problema Cifra Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.96 kb
{
    Problema cifra

    // Precompilare
}

Program cifra;

Const numere : array[0..99] of byte =
               (0,1,5,2,8,3,9,2,8,7,7,8,4,7,3,8,4,
                1,5,4,4,5,9,6,2,7,3,6,2,1,1,2,8,1,
                7,2,8,5,9,8,8,9,3,0,6,1,7,0,6,5,5,
                6,2,5,1,6,2,9,3,2,2,3,7,4,0,5,1,4,
                0,9,9,0,6,9,5,0,6,3,7,6,6,7,1,8,4,
                9,5,8,4,3,3,4,0,3,9,4,0,7,1,0);

Var n, x, t : integer;
    s, s2 : string;

Begin
    Assign( input, 'cifra.in' );
    Reset( input );
        Readln( t );
    Assign( output, 'cifra.out' );
    Rewrite( output );
        While t > 0 do
            Begin
                t := t-1;
                Readln( s );
                s2 := '';
                if length( s ) > 1 then s2 := s2+s[length(s)-1];
                s2 := s2 + s[length(s)];
                val( s2, n, x );
                Writeln( numere[n] );
            End;
    Close( input );
    Close( output );

End.