Pagini recente » Cod sursa (job #2525151) | Cod sursa (job #74788)
Cod sursa(job #74788)
program cifre;
var f,g:text;
teste,i,n,t:longint;
sol:longint;
begin
assign(f,'cifra.in'); assign(g,'cifra.out');
reset(f); rewrite(g);
read(f,teste);
for t:=1 to teste do
begin
read(f,n);
sol:=0;
for i:=1 to n do
begin
case (i mod 10) of
1: sol:=(sol+1) mod 10;
5: sol:=(sol+5) mod 10;
6: sol:=(sol+6) mod 10;
4: sol:=(sol+6) mod 10;
9: sol:=(sol+9) mod 10;
2: if i mod 4=0 then sol:=(sol+6) mod 10 else sol:=(sol+4) mod 10;
3: if i mod 4=1 then sol:=(sol+3) mod 10 else sol:=(sol+7) mod 10;
7: if i mod 4=1 then sol:=(sol+7) mod 10 else sol:=(sol+3) mod 10;
8: if i mod 4=0 then sol:=(sol+6) mod 10 else sol:=(sol+4) mod 10;
end;
end;
writeln(g,sol);
end;
close(f); close(g);
end.