Pagini recente » Cod sursa (job #2091771) | Cod sursa (job #410727) | Cod sursa (job #2846222) | Cod sursa (job #2968747) | Cod sursa (job #255656)
Cod sursa(job #255656)
type
sir=array[0..100] of byte;
var x,t,i,p,c,j:longint;
f,g:text;
s:string;
v:sir;
begin
v[0]:=0;
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,t);
x:=0;
for i:= 1 to 100 do begin
p:=1;
c:= i mod 10;
for j:= 1 to i do
p:=p*c mod 10;
x:=(x+p) mod 10;
v[i]:=x;
end;
for j:=1 to t do
begin
readln(f,s);
s:='0'+s;
s:=copy(s,length(s)-1,2);
val(s,i,x);
writeln(g,v[i]);
end;
close(f); close(g);
end.