Pagini recente » Cod sursa (job #1704802) | Cod sursa (job #1524310) | Cod sursa (job #2438085) | Cod sursa (job #1028215) | Cod sursa (job #96354)
Cod sursa(job #96354)
var
i, t : integer;
v, p, e, l : byte;
a : array [0..100] of byte;
fi, fo : text;
n : string;
begin
assign(fi,'cifra.in'); reset(fi);
assign(fo,'cifra.out'); rewrite(fo);
for i := 1 to 100 do
begin
p := 1;
for e := 1 to i do
p := p*i mod 10;
a[i] := (a[i-1]+p) mod 10;
end;
a[0] := a[100]; // Ca sa folosim indicii de la 0 la 99.
readln(fi,t);
for i := 1 to t do
begin
readln(fi,n);
l := length(n);
if l = 1 then
v := ord(n[l])-ord('0')
else
v := (ord(n[l-1])-ord('0'))*10+ord(n[l])-ord('0');
writeln(fo,a[v]);
end;
close(fi); close(fo);
end.