Pagini recente » Cod sursa (job #3303750) | Borderou de evaluare (job #1425026) | Borderou de evaluare (job #1570444) | Cod sursa (job #2563953) | Cod sursa (job #556162)
Cod sursa(job #556162)
var a,n,i,j,s,k:longint;
begin
assign(input,'cifra.in');reset(input);
assign(output,'cifra.out');rewrite(output);
readln(input,n);
for i:=1 to n do
begin
readln(input,a);
s:=0;
for j:=1 to a do
begin
if j<>3 then k:=trunc(exp(j*ln(j)))
else k:=trunc(exp(j*ln(j)))+1;
s:=s+k;
end;
writeln(output,s mod 10);
end;
close(input);
close(output);
end.