Pagini recente » Cod sursa (job #1650799) | Cod sursa (job #107743) | Cod sursa (job #1375487) | Cod sursa (job #1947045) | Cod sursa (job #5403)
Cod sursa(job #5403)
program cifra;
var f,g:text;
n,i,j,k,c,p,l:integer;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,n);
for i:=1 to n do begin
readln(f,k);
c:=0;
for j:=1 to k do begin
case j mod 10 of
1:c:=c+1;
5:c:=c+5;
6:c:=c+6;
0:c:=c;
2:begin
p:=1;
for l:=1 to (j mod 4) do p:=p*2;
c:=c+(6*p) mod 10;
end;
3:begin
p:=1;
for l:=1 to (j mod 4) do p:=p*3;
c:=c+(p mod 10);
end;
4:if (j mod 2=1) then c:=c+4
else c:=c+6;
7:begin
p:=1;
for l:=1 to (j mod 4) do p:=p*7;
c:=c+(p mod 10);
end;
8:begin
p:=1;
for l:=1 to (j mod 4) do p:=p*8;
c:=c+(6*p mod 10);
end;
9:if j mod 2=1 then c:=c+9
else c:=c+1;
end;
c:=c mod 10;
end;
writeln(g,c);
end;
close(f); close(g);
end.