Pagini recente » Cod sursa (job #227715) | Cod sursa (job #1474552) | Cod sursa (job #2897072) | Cod sursa (job #2260945) | Cod sursa (job #219645)
Cod sursa(job #219645)
program cifra;
var f, g:text;
x, t, i, z, s, j:longint;
a:string;
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,a);
x:=length(a);
z:=ord(a[x])-48;
s:=0;
for j:=1 to z do
begin
x:=j mod 10;
if x=1 then
s:=(s+1) mod 10;
if x=2 then
s:=(s+4) mod 10;
if x=3 then
s:=(s+7) mod 10;
if x=4 then
s:=(s+6) mod 10;
if x=5 then
s:=(s+5) mod 10;
if x=6 then
s:=(s+6) mod 10;
if x=7 then
s:=(s+9) mod 10;
if x=8 then
s:=(s+4) mod 10;
if x=9 then
s:=(s+1) mod 10;
end;
s:=(s+(length(a)-1)*3) mod 10;
writeln(g,s);
end;
writeln(g);
close(f);
close(g);
end.