Pagini recente » Cod sursa (job #1201156) | Cod sursa (job #528957) | Cod sursa (job #341643) | Cod sursa (job #1472282) | Cod sursa (job #379552)
Cod sursa(job #379552)
var n,m,i,j,k,l,cf,t,suma,pr,pt,x:longint;
begin
assign(input,'cifra.in'); reset(input);
assign(output,'cifra.out'); rewrite(output);
readln(t);
for i:=1 to t do begin
readln(x); suma:=0;
for j:=1 to x do
begin
cf:=j mod 10;
pt:=j mod 4;
pr:=1;
if pt<>0 then
for k:=1 to pt do
pr:=pr*cf;
if pt=0 then
for k:=1 to 4 do
pr:=pr*cf;
suma:=suma+pr mod 10;
end;
writeln(suma mod 10);
end;
close(output);
end.