Pagini recente » Cod sursa (job #3137723) | Cod sursa (job #1308793) | Cod sursa (job #832905) | Cod sursa (job #1469419) | Cod sursa (job #260308)
Cod sursa(job #260308)
var
f,g: text;
a: array[0..99] of byte;
i,s,uc: byte;
t,n: integer;
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.