Cod sursa(job #337816)

Utilizator sapiensCernov Vladimir sapiens Data 5 august 2009 01:17:02
Problema Cifra Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.67 kb
Program cifra;
 var f,g:text; a:array[0..19]of 0..9;
     t,i,r,s:integer;
     b:char; c:string; code:word;
 begin
  assign (f,'cifra.in'); reset (f);
  assign (g,'cifra.out'); rewrite (g);
  a[1]:=1; a[2]:=5; a[3]:=2; a[4]:=8; a[5]:=3;
  a[6]:=9; a[7]:=2; a[8]:=8; a[9]:=7; a[10]:=7;
  a[11]:=8; a[12]:=4; a[13]:=7; a[14]:=3; a[15]:=8;
  a[16]:=4; a[17]:=1; a[18]:=5; a[19]:=4; a[0]:=0;
  readln (f,t);
  for i:=1 to t do begin
    c:='00';
    while not eoln (f) do begin
      read (f,b);
      c:=c[2]+b;
    end;
    readln (f);
    val (c,r,code);
    s:=4*(r div 20);
    s:=s+a[r mod 20];
    writeln (g,s mod 10);
  end;
  close (f); close (g);
 end.