Pagini recente » Cod sursa (job #1089886) | Cod sursa (job #1042294) | Cod sursa (job #1194781) | Cod sursa (job #701601) | Cod sursa (job #122027)
Cod sursa(job #122027)
program calcul;
var n,i,k,s,p,x,d,j,o,l:longint;
t,z:array[1..100] of longint;
g,h:text;
begin
assign(g,'cifra.in');
reset(g);
read(g,n);
for i:=1 to n do
read(g,t[i]);
o:=1;
for i:=1 to n do begin
k:=0;s:=0;p:=1;
repeat
p:=1;
k:=k+1;
for l:=1 to k do
p:=p*k;
x:=p mod 10;
s:=s+x;
until k=t[i];
d:=s mod 10;
for j:=o to o do
z[j]:=d;
o:=o+1;
end;
assign(h,'cifra.out');
rewrite(h);
for j:=1 to n do begin
writeln(h,z[j]);
end;
close(h);
close(g);
end.