Pagini recente » Cod sursa (job #194355) | Cod sursa (job #1328498) | Cod sursa (job #1694431) | Cod sursa (job #1834862) | Cod sursa (job #1595135)
var n,i,j,k:longint;
s:string;
a:array[1..10] of longint;
begin
assign(input,'cifra.in');
assign(output,'cifra.out');
reset(input);
rewrite(output);
a[1]:=1;
for i:=2 to 9 do begin
k:=i;
for j:=2 to i do k:=k*i;
a[i]:=(a[i-1]+k) mod 10;
// write(a[i],' ');
end;
// writeln;
a[10]:=a[9];
readln(n);
for i:=1 to n do begin
readln(s);
k:=0;
j:=length(s);
if j>1 then begin
k:=(a[10]*(ord(s[j-1])-48)) mod 10;
end;
if s[j]<>'0' then
k:=(k+a[ord(s[j])-48]) mod 10;
writeln(k);
end;
end.