Cod sursa(job #270145)
Utilizator | 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.