Pagini recente » Cod sursa (job #2474527) | Cod sursa (job #914694) | Cod sursa (job #125223) | Cod sursa (job #903825) | Cod sursa (job #334182)
Cod sursa(job #334182)
program cifra;
var f,g:text;
n,v:array[1..1001] of 1..maxlongint;
t:1..30000;
i,k,nr,s:word;
x:array[1..1001] of 0..9;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,t);
for i:=1 to t do
readln(f,n[i]);
k:=0;
s:=0;
repeat
k:=k+1;
nr:=n[k];
for i:=1 to nr-1 do
nr:=nr*k;
s:=s+nr;
v[k]:=nr;
until k=t;
k:=0;
repeat
k:=k+1;
s:=0;
for i:=1 to k do
s:=s+v[i];
x[k]:=s mod 10;
until k=t;
for i:=1 to k do
writeln(g,x[i]);
close(f);
close(g);
end.