Pagini recente » Cod sursa (job #2757623) | Cod sursa (job #2603307) | Cod sursa (job #216335) | Cod sursa (job #2482903) | Cod sursa (job #63234)
Cod sursa(job #63234)
var j,k,z,d,s,c,i,t:integer;n:int64;
f1,f2:text;
b:boolean;
begin
Assign(f1,'cifra.in');reset(f1);
Assign(f2,'cifra.out');rewrite(f2);
readln(f1,t);
For z:=1 to t do begin
readln(f1,n);s:=0;
For i:=1 to n do begin
c:=i mod 4;If c=0 then c:=4;d:=1;
For k:=1 to c do begin
d:=d*(i mod 10)mod 10;
end;
s:=(s+d)mod 10;
end;
writeln(f2,s);
end;
close(f1);
close(f2);
end.