Cod sursa(job #601516)

Utilizator RaileanuCristian Raileanu Raileanu Data 6 iulie 2011 20:54:24
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.03 kb
Program ultima_cifra;
const a: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 t,i: longint;
    f1,f2:text;
    s:string;
    cod,v:integer;
Begin
     assign(f1, 'cifra.in' );
     assign(f2, 'cifra.out');
     reset(f1);
     rewrite(f2);
     readln(f1,t);
     for i:=1 to t do
         Begin
              readln(f1,s);
              val(copy(s,length(s)-1,2),v,cod);
              writeln(f2,a[v]);
         end;
     close(f1);
     close(f2);
end.