Pagini recente » Cod sursa (job #1136319) | Cod sursa (job #1277723) | Cod sursa (job #3123457) | Borderou de evaluare (job #3161036) | Cod sursa (job #175266)
Cod sursa(job #175266)
Program info2;
var
n,t,i,s,uc,j,k:longint;
fi,fo:text;
begin
assign(fi,'cifra.in');reset(fi);
assign(fo,'cifra.out');rewrite(fo);
readln(fi,t);
for i:=1 to t do
begin
readln(n);
s:=0;
for j:=1 to n do
begin
uc:=j mod 10;
case uc of
1: s:=(s+1) mod 10;
2: begin k:=j mod 4; case k of
0: s:=(s+6) mod 10;
1: s:=(s+2) mod 10;
2: s:=(s+4) mod 10;
3: s:=(s+8) mod 10;
end;end;
3: begin k:=j mod 4; case k of
0: s:=(s+1) mod 10;
1: s:=(s+3) mod 10;
2: s:=(s+9) mod 10;
3: s:=(s+7) mod 10;
end;end;
4: begin k:=j mod 2; case k of
0: s:=(s+6) mod 10;
1: s:=(s+4) mod 10;
end;end;
5: s:=(s+5) mod 10;
6: s:=(s+6) mod 10;
7: begin k:=j mod 4; case k of
0: s:=(s+1) mod 10;
1: s:=(s+7) mod 10;
2: s:=(s+9) mod 10;
3: s:=(s+3) mod 10;
end;end;
8: begin k:=j mod 4; case k of
0: s:=(s+6) mod 10;
1: s:=(s+8) mod 10;
2: s:=(s+4) mod 10;
3: s:=(s+2) mod 10;
end;end;
9: begin k:=j mod 2; case k of
0: s:=(s+1) mod 10;
1: s:=(s+9) mod 10;
end;end;
end;
end;
writeln(fo,s mod 10);
end;
close(fi); close(fo);
end.