Cod sursa(job #229838)
| Utilizator |  mihai catalin sarpele200 |
Data | 11 decembrie 2008 21:04:07 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
var i,j,c,k,v,t,s,n,p,l:longint;
a:array[1..100] of longint;
begin
read(t);
for j:=1 to t do begin
read(n);s:=0;i:=0;p:=1;
while i<n do begin
i:=i+1;c:=i mod 10;p:=1;
for l:=1 to i do begin
p:=p*c;p:=p mod 10;
end;
s:=s+p;
s:=s mod 10;
end;
a[j]:=s;
end;
for k:=1 to t do
writeln(a[k]);
end.