Cod sursa(job #181355)

Utilizator madmanjonesJones the one madmanjones Data 18 aprilie 2008 11:41:15
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.89 kb
const r: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);   
var n:string;   
    nr,err:byte;   
    t,i:integer;   
begin  
 assign(input, 'cifra.in'); reset(input);   
 assign(output,'cifra.out'); rewrite(output);   
  readln(t);   
  for i:=1 to t do begin  
   readln(n);   
   if length(n)>2 then delete(n,1,length(n)-2);   
   val(n,nr,err); writeln((4*(nr div 20)+r[nr mod 20])mod 10);   
  end;   
 close(input); close(output);   
end.  
const r: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);
var n:string;
    nr,err:byte;
    t,i:integer;
begin
 assign(input, 'cifra.in'); reset(input);
 assign(output,'cifra.out'); rewrite(output);
  readln(t);
  for i:=1 to t do begin
   readln(n);
   if length(n)>2 then delete(n,1,length(n)-2);
   val(n,nr,err); writeln((4*(nr div 20)+r[nr mod 20])mod 10);
  end;
 close(input); close(output);
end.