Pagini recente » Cod sursa (job #586346) | Cod sursa (job #3235777) | Cod sursa (job #535597) | Cod sursa (job #3038505) | Cod sursa (job #260292)
Cod sursa(job #260292)
var
f,g: text;
a: array[0..99] of integer;
i,s,uc: integer;
t,n: longint;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
for i:=0 to 99 do
begin
uc:=(i*i*i*i) mod 10;
if i mod 4=0 then a[i]:=uc
else if i mod 4=1 then a[i]:=(uc*(i mod 10)) mod 10
else if i mod 4=2 then a[i]:=(uc*(i*i mod 10)) mod 10
else a[i]:=(uc*(i*i*i mod 10)) mod 10; end;
s:=0;
for i:= 0 to 99 do begin
a[i]:=(s+a[i]) mod 10;
s:=a[i];
end;
readln(f,t);
for i:=1 to t do begin
readln(f,n);
writeln(g,a[n mod 100]);
end;
close(f);
close(g);
end.