Cod sursa(job #250626)
| Utilizator | Data | 31 ianuarie 2009 13:08:11 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.4 kb |
var n:array[1..100] of integer;
a,b:text;
i,j,p,c,k,s,t:longint;
begin
assign(a,'cifra.in');
reset(a);
assign(b,'cifra.out');
rewrite(b);
read(a,t);
for i:=1 to t do
read(a,n[i]);
for i:=1 to t do begin
s:=0;
for j:=1 to n[i] do begin
p:=1;
for k:=1 to j do begin
c:=j mod 10;
p:=p*c;
p:=p mod 10;
end;
s:=s+p;
end;
s:=s mod 10;
writeln(b,s);
end;
close(a);
close(b);
end.
