Pagini recente » Cod sursa (job #2837319) | Cod sursa (job #2536340) | Cod sursa (job #2635328) | Cod sursa (job #2126144) | Cod sursa (job #260127)
Cod sursa(job #260127)
var
f,g: text;
a: array[0..99] of byte;
i,s,uc: byte;
t,n: integer;
begin
assign(f,'cifra.out');
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.