Cod sursa(job #122027)
Utilizator | Data | 10 ianuarie 2008 17:55:48 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.48 kb |
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.