Cod sursa(job #5045)

Utilizator m123pop 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.