Cod sursa(job #363654)
Utilizator | Data | 14 noiembrie 2009 01:14:42 | |
---|---|---|---|
Problema | Cifra | Scor | 90 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.51 kb |
var
f,g : text;
t,n,err,i : integer;
s : string;
const
v : 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);
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,t);
for i := 1 to t do
begin
readln(f,s);
if length(s)>2 then s := copy(s,length(s)-1,length(s));
val(s,n,err);
writeln(g, ((n div 20)*4+v[n mod 20]) mod 10);
end;
close(f);
close(g);
end.