Pagini recente » Cod sursa (job #3276437) | Cod sursa (job #3203666) | Cod sursa (job #1437336) | Cod sursa (job #2626415) | Cod sursa (job #477997)
Cod sursa(job #477997)
program cifra;
var n,i,e,e2,s,x:longint;
f,g:text;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
rewrite(g);
reset(f);
read(f,n);
for i:=1 to n do
begin
read(f,x);
e:=x div 9;
e2:=x mod 9;
s:=s+7*e;
if e2=1 then writeln(g,(s+1) mod 10);
if e2=2 then writeln(g,(s+5) mod 10);
if e2=3 then writeln(g,(s+2) mod 10);
if e2=4 then writeln(g,(s+8) mod 10);
if e2=5 then writeln(g,(s+3) mod 10);
if e2=6 then writeln(g,(s+9) mod 10);
if e2=7 then writeln(g,(s+2) mod 10);
if e2=8 then writeln(g,(s+8) mod 10);
if e2=0 then writeln(g,s);
end;
close(f);
close(g);
end.