Pagini recente » Cod sursa (job #776087) | Cod sursa (job #809964) | Cod sursa (job #3127984) | Cod sursa (job #1355067) | Cod sursa (job #219635)
Cod sursa(job #219635)
program cifra;
var f, g:text;
x, t, i, z, s: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 x:=1 to z do
begin
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;
writeln(g,s);
end;
writeln(g);
close(f);
close(g);
end.