Pagini recente » Cod sursa (job #398427) | Cod sursa (job #1902687) | Cod sursa (job #1880416) | Cod sursa (job #651507) | Cod sursa (job #593894)
Cod sursa(job #593894)
var t,i,p1,p,k,j:integer;
n : array[1..100] of longint;
f:text;
begin
assign(f,'cifra.in');reset(f);
read(f,t);
for i:=1 to t do
read(f,n[i]);
close(f);
assign(f,'cifra.out');rewrite(f);
for i:=1 to t do begin
for j:=1 to n[i] do begin
p1:=j;
for k:=1 to j-1 do
p1:=p1*j;
p:=p1+p;
end;
p:=p mod 10;
writeln(f,p);
p:=0;
end;
close(f);
end.