Cod sursa(job #5045)
Utilizator | pop manu m123 | Data | 9 ianuarie 2007 21:30:11 |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.4 kb |
program cifra;{pb 10 arhiva infoarena}
var f,g:text;
n,t,i,r,u:integer;
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);
case n mod 20 of
1,17:r:=1;
2,18:r:=5;
3,7:r:=2;
4,8,11,15:r:=8;
5,14:r:=3;
6:r:=9;
9,10,13:r:=7;
12,16,19:r:=4;
0:r:=0;
end;
u:=((n div 20)*4+r) mod 10;
writeln(g,u);
end;
close(f);close(g);
end.