Pagini recente » Cod sursa (job #1359732) | Cod sursa (job #2880915) | Cod sursa (job #2033359) | Cod sursa (job #2649967) | Cod sursa (job #317816)
Cod sursa(job #317816)
Program cifra;
var t,i,s:integer;
n,j:longint;
f,g:text;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,t);
for i:=1 to t do begin
readln(f,n);
s:=0;
for j:=1 to n do
case j mod 10 of
0 : s:=s+0;
1 : s:=s+1;
4 : s:=s+6;
5 : s:=s+5;
6 : s:=s+6;
9 : s:=s+1;
else if j mod 10=2 then begin
if j mod 4=2 then s:=s+4 else s:=s+6;
end else
if j mod 10=3 then begin
if j mod 4=1 then s:=s+3 else s:=s+7; end
else if j mod 10=7 then begin
if j mod 4=1 then s:=s+7 else s:=s+3; end else
if j mod 10=8 then
if j mod 4=2 then s:=s+4 else s:=s+6;
end;
writeln(g,s mod 10);
end;
close(f);
close(g);
end.