Pagini recente » Cod sursa (job #999907) | Cod sursa (job #3245855) | Cod sursa (job #546028) | Cod sursa (job #603718) | Cod sursa (job #786848)
Cod sursa(job #786848)
var f,g:text;
x:integer;
i,t,j:longint; s:int64;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
read(f,t);
for i:=1 to t do
begin
read(f,s);
x:=(7*((s mod 100)div 10)) mod 10;
if(s mod 10=1) then writeln(g,(x+1)mod 10);
if(s mod 10=0) then writeln(g,(x+0)mod 10);
if(s mod 10=2) then writeln(g,(x+5)mod 10);
if(s mod 10=3) then writeln(g,(x+2)mod 10);
if(s mod 10=4) then writeln(g,(x+8)mod 10);
if(s mod 10=5) then writeln(g,(x+3)mod 10);
if(s mod 10=6) then writeln(g,(x+9)mod 10);
if(s mod 10=7) then writeln(g,(x+2)mod 10);
if(s mod 10=8) then writeln(g,(x+8)mod 10);
if(s mod 10=9) then writeln(g,(x+7)mod 10);
end;
close(f);
close(g);
end.