Pagini recente » Cod sursa (job #2449298) | Cod sursa (job #3004030) | Cod sursa (job #2819176) | Cod sursa (job #2248215) | Cod sursa (job #477998)
Cod sursa(job #477998)
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.