Cod sursa(job #16950)

Utilizator asu_the_bestRusu Robert asu_the_best Data 14 februarie 2007 15:50:58
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
Raporteaza aceasta sursa 
const r:array[0..19] of byte=(1,5,2,8,3,9,2,8,7,7,8,4,7,3,4,1,5,4);
var n:string;
    t,i,err:integer;
begin
readln(t);
 for i:=1 to n do begin
  readln(n);
  if lenght(n)>2 then (n,1,lenght(n)-2);
  val(n,nr,err);
  writeln((4*(nr div 20)+r[nr mod 20])mod 10);
 end;
close(input);close(output);
end.