Cod sursa(job #927958)

Utilizator Andru_Andru Felipe Zuniga Andru_ Data 26 martie 2013 10:04:45
Problema Cifra Scor 80
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.7 kb
program cifra;
var
 s:string[105];
 sir: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);
 t,ultima,i,temp:integer;
 fin,fout:text;
begin
 assign(fin,'cifra.in');
 assign(fout,'cifra.out');
 reset(fin);
 rewrite(fout);
 readln(fin,t);
 for i:=1 to t do
  begin
   readln(fin,s);
   s:='0'+s;
   val(s[length(s)-1]+s[length(s)],temp);
   ultima:=sir[temp];
   write(fout,ultima);
   if i<t then
    writeln(fout);
  end;
 close(fin);
 close(fout);
end.