Pagini recente » Cod sursa (job #260524) | Cod sursa (job #1207562) | Cod sursa (job #331903) | Cod sursa (job #1092961) | Cod sursa (job #76605)
Cod sursa(job #76605)
program p1;
var f,f1:text;
n,i,t,s,r,j:longint;
begin
assign(f,'cifra.in');reset(f);
readln(f,t);
assign(f1,'cifra.out');rewrite(f1);
for j:=1 to t do
begin
readln(f,n);
s:=0;
for i:=1to n do
begin
r:=i mod 4;
case r of
0:s:=(((i mod 10)*(i mod 10)*(i mod 10)*(i mod 10))mod 10+s)mod 10;
1:s:=(s+i mod 10)mod 10;
2:s:=(((i mod 10)*(i mod 10))mod 10+s)mod 10;
3:s:=(((i mod 10)*(i mod 10)*(i mod 10))mod 10+s)mod 10;
end;
end;
writeln(f1,s);
end;
close(f);
close(f1);
end.