Pagini recente » Cod sursa (job #1527421) | Cod sursa (job #1494130) | Cod sursa (job #1652850) | Cod sursa (job #224107) | Cod sursa (job #29435)
Cod sursa(job #29435)
program cifre;
const u2:array[0..1]of byte = (4,6);
u3:array[0..1]of byte = (7,3);
u7:array[0..1]of byte = (3,7);
u8:array[0..1]of byte = (6,4);
var n,i:longword;
t,j:word;
f,g:text;
m:0..1;
s:word;
begin
assign(f,'cifra.in');reset(f);assign(g,'cifra.out');rewrite(g);
readln(f,t);
for j:=1 to t do
begin
readln(f,n);
m:=0;s:=0;
for i:=1 to n do
case i mod 10 of
0:m:=succ(m);
1,5,6,9:inc(s,i mod 10);
4:inc(s,6);
2:inc(s,u2[m]);
3:inc(s,u3[m]);
7:inc(s,u7[m]);
8:inc(s,u8[m]);
end;
writeln(g,s mod 10);
end;
close(f);close(g);
end.