Cod sursa(job #921828)

Utilizator Andru_Andru Felipe Zuniga Andru_ Data 21 martie 2013 16:58:39
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.78 kb
program cifra;
var
 s:string;
 sir:array[0..19] of byte;
 t,ultima,i,temp,err:integer;
 fin,fout:text;
begin
 assign(fin,'cifra.in');
 assign(fout,'cifra.out');
 reset(fin);
 rewrite(fout);
 readln(fin,t);
 sir[0]:=0;
 sir[1]:=1;
 sir[2]:=1+4;
 sir[3]:=1+4+7;
 sir[4]:=1+4+7+6;
 sir[5]:=1+4+7+6+5;
 sir[6]:=1+4+7+6+5+6;
 sir[7]:=1+4+7+6+5+6+3;
 sir[8]:=1+4+7+6+5+6+3+6;
 sir[9]:=1+4+7+6+5+6+3+6+9;
 sir[10]:=7;
 sir[11]:=8;
 sir[12]:=4;
 sir[13]:=7;
 sir[14]:=3;
 sir[15]:=8;
 sir[16]:=4;
 sir[17]:=1;
 sir[18]:=5;
 sir[19]:=4;
 for i:=1 to t do
  begin
   readln(fin,s);
   val(s,temp,err);
   temp:=temp div 20;
   ultima:=(temp*4) mod 10;
   val(s,temp,err);
   ultima:=(ultima+sir[temp mod 20]) mod 10;
   write(fout,ultima);
   if i<t then
    writeln(fout);
  end;
 close(fin);
 close(fout);
end.