Cod sursa(job #270145)

Utilizator ladyLittle Lady lady Data 3 martie 2009 19:36:19
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.4 kb
const r:array[0..20] of integer=(0,1,5,2,8,3,9,2,8,7,7,8,4,7,3,8,4,1,5,4,4);
var n,nr,err,i:integer;
    s:string;
begin
  assign(input,'cifra.in'); reset(input);
  assign(output,'cifra.out'); rewrite(output);
  readln(n);
  for i:=1 to n do begin
    readln(s); delete(s,1,length(s)-2);
    val(s,nr,err);
    writeln((4*(nr div 20)+r[nr mod 20])mod 10);
  end;
  close(input); close(output);
end.