Cod sursa(job #56545)
| Utilizator | Data | 29 aprilie 2007 20:49:31 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.79 kb |
program cifra;
var n,t,j,x,i,k,suma,s:longint;
f,g:text;
begin
assign (f,'cifra.in');
reset (f);
assign (g,'cifra.out');
rewrite (g);
read(f,t);
for x:=1 to t do
begin
read (f,n);
s:=1;
suma:=0;
for i:=1 to n do
begin
s:=1;
k:=i;
for j:=1 to i do
begin
s:=s*k;
s:=s mod 10;
end;
suma:=s+suma;
suma:=suma mod 10;
end;
writeln (g,suma);
end;
close (f);
close (g);
end.
