Pagini recente » Cod sursa (job #1230001) | Borderou de evaluare (job #180017) | Monitorul de evaluare | Cod sursa (job #3317673) | Cod sursa (job #305459)
Cod sursa(job #305459)
var
nanu,alecu:text;
i,j,b,a,n,u,c:longint;
begin
assign(nanu,'cifra.in');
assign(alecu,'cifra.out');
reset(nanu);rewrite(alecu);
u:=0;
readln(nanu,a);
for b:=1 to a do begin
readln(nanu,n);
for i:=1 to n do begin
c:=1;
for j:=1 to i do begin
c:=c * i ;
c:= c mod 10 ;
end;
u:=u+c;
end;
u:=u mod 10;
writeln(alecu,u);
end;
close(nanu);
close(alecu);
end.