Pagini recente » Cod sursa (job #1287509) | Cod sursa (job #70458) | Cod sursa (job #123109) | Cod sursa (job #3270619) | Cod sursa (job #260352)
Cod sursa(job #260352)
var
f,g: text;
a: array[0..99] of byte;
i,s,uc,j,x: longint;
t,n: integer;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
for i:=0 to 99 do
a[i]:=0;
for i:=0 to 99 do
begin
uc:=i*i;
uc:=uc*i;
uc:=uc*i;
uc:=uc 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 begin x:=(i*i*i) mod 10;
a[i]:=(uc*x) mod 10; end;
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 j:=1 to t do begin
readln(f,n);
if n>=100 then writeln(g,a[n mod 100])
else writeln(g,a[n]);
end;
close(f);
close(g);
end.