Cod sursa(job #126345)
Utilizator | Data | 21 ianuarie 2008 21:38:11 | |
---|---|---|---|
Problema | Cifra | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.56 kb |
var n:string;
i,t,u,x:longint;
c,l,p:byte;
f,g:text;
cod:integer;
const m:array[0..1,1..9]of byte =((1,4,7,6,5,6,3,6,9),(1,6,3,6,5,6,7,4,9));
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,t);
for i:=1 to t do
begin
readln(f,n);
l:=length(n);
if l>1 then
val(n[l-1],p,cod)
else
p:=0;
x:=p*7;
val(n[l],u,cod);
for c:=1 to u do
x:=x+m[p mod 2, c];
writeln(g,x mod 10);
end;
close(f);
close(g);
end.