Pagini recente » Monitorul de evaluare | Cod sursa (job #1493630) | Cod sursa (job #2676445) | Cod sursa (job #3168667) | Cod sursa (job #339136)
Cod sursa(job #339136)
program num;
var n:longint;
t,i:integer;
f,g:text;
begin
assign(g,'cifra.in');reset(g);
assign(f,'cifra.out');rewrite(f);
readln(g,t);
for i:=1 to t do begin
readln(g,n);
if n mod 20=0 then writeln(f,(n div 20)*7 mod 10);
if n mod 20=1 then writeln(f,((n div 20)*7+1) mod 10);
if n mod 20=2 then writeln(f,((n div 20)*7+5) mod 10);
if n mod 20=3 then writeln(f,((n div 20)*7+2) mod 10);
if n mod 20=4 then writeln(f,((n div 20)*7+8) mod 10);
if n mod 20=5 then writeln(f,((n div 20)*7+3) mod 10);
if n mod 20=6 then writeln(f,((n div 20)*7+9) mod 10);
if n mod 20=7 then writeln(f,((n div 20)*7+2) mod 10);
if n mod 20=8 then writeln(f,((n div 20)*7+8) mod 10);
if n mod 20=9 then writeln(f,((n div 20)*7+7) mod 10);
if n mod 20=10 then writeln(f,((n div 20)*7+7) mod 10);
if n mod 20=11 then writeln(f,((n div 20)*7+8) mod 10);
if n mod 20=12 then writeln(f,((n div 20)*7+4) mod 10);
if n mod 20=13 then writeln(f,((n div 20)*7+7) mod 10);
if n mod 20=14 then writeln(f,((n div 20)*7+3) mod 10);
if n mod 20=15 then writeln(f,((n div 20)*7+8) mod 10);
if n mod 20=16 then writeln(f,((n div 20)*7+4) mod 10);
if n mod 20=17 then writeln(f,((n div 20)*7+1) mod 10);
if n mod 20=18 then writeln(f,((n div 20)*7+5) mod 10);
if n mod 20=19 then writeln(f,((n div 20)*7+4) mod 10);
end;
close(f);
close(g);
end.