Pagini recente » Cod sursa (job #522027) | Cod sursa (job #1885843) | Cod sursa (job #1102343) | Cod sursa (job #573080) | Cod sursa (job #849987)
Cod sursa(job #849987)
var v:array[1..10] of integer;
f,g:text;
s:string;
i,t,nr,a,b,j,l:integer;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
v[1]:=1; v[2]:=4; v[3]:=7; v[4]:=6; v[5]:=5; v[6]:=6; v[7]:=3; v[8]:=6; v[9]:=9; v[10]:=0;
readln(f,t);
for i:=1 to t do
begin
readln(f,s);
nr:=0;
l:=length(s);
if l<>1 then begin
a:=ord(s[l-1])-48;
b:=ord(s[l])-48;
nr:=47*a;
end
else b:=ord(s[l])-48;
for j:=1 to b do
nr:=nr+v[j];
writeln(g,nr mod 10);
end;
close(f);
close(g);
end.