Cod sursa(job #16953)

Utilizator RichiUngur Richard-Alex Richi Data 14 februarie 2007 15:55:51
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.4 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.