Cod sursa(job #921831)

Utilizator Andru_Andru Felipe Zuniga Andru_ Data 21 martie 2013 17:09:15
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.44 kb
program cifra;
var
 s:string;
 sir: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);
 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);
   val(s,temp);
   ultima:=(sir[temp mod 20]+(temp div 20)*4) mod 10;
   write(fout,ultima);
   if i<t then
    writeln(fout);
  end;
 close(fin);
 close(fout);
end.