Pagini recente » Cod sursa (job #2316181) | Cod sursa (job #961690) | Cod sursa (job #222263) | Cod sursa (job #851698) | Cod sursa (job #2362470)
var a,b,c,d,e,i,n,produs,rezultat:longint;
fin,fout:textfile;
type vector = array[1..100] of longint;
var x:vector;
function patrat(p:longint):longint;
var i,rezultat:longint;
begin
rezultat:=1;
for i:=1 to p do
rezultat:=rezultat*p;
patrat:=rezultat;
end;
begin
assign(fin,'cifra.in');
reset(fin);
assign(fout,'cifra.out');
rewrite(fout);
read(fin,n);
for i:=1 to n do readln(fin,x[i]);
for i:=1 to n do begin
rezultat:=0;
produs:=1;
c:=x[i];
for e:=1 to c do begin
produs:=patrat(e);
rezultat:=rezultat+produs;
end;
writeln(fout,rezultat mod 10);
end;
close(fin);
close(fout);
end.