Pagini recente » Cod sursa (job #1156409) | Cod sursa (job #2325863) | Cod sursa (job #2336273) | Cod sursa (job #2538542) | Cod sursa (job #134200)
Cod sursa(job #134200)
var i,n,s,p,t,j,x,pu:integer; f,f2:text; v:array[1..100] of integer;
begin
assign(f,'cifra.in');
reset(f);
readln(f,p);
FOR i:=1 to p DO
readln(f,v[i]);
close(f);
assign(f2,'cifra.out');
rewrite(f2);
FOR i:=1 to p DO
begin
s:=0;
FOR j:=1 to v[i] DO
begin
pu:=1;
FOR x:=1 to j DO
pu:=(pu*j) mod 10;
s:=(s+pu) mod 10;
end;
writeln(f2,s);
end;
close(f2);
end.