Cod sursa(job #190801)
Utilizator | Data | 24 mai 2008 10:41:58 | |
---|---|---|---|
Problema | Cifra | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.44 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,cod:integer;
t,i:integer;
f,g :text;
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,n);
if length(n)>2 then
delete(n,1,length(n)-2);
val(n,nr,cod);
writeln(g,((4*(nr div 20)+r[nr mod 20])mod 10));
end;
close(f);
close(g);
end.