Cod sursa(job #264574)
| Utilizator | Data | 22 februarie 2009 13:15:32 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.69 kb |
program Cifra;
var f,x:text;
t:word;
n,i,j,c:longint;
p:longint;
uf:byte;
Begin
assign(f,'cifra.in'); reset(f);
assign(x,'cifra.out'); rewrite(x);
readln(f,t);
for i:=1 to t do begin
readln(f,n);
uf:=0;
for j:=1 to n do begin
p:=1;
for c:=1 to j do
p:=p*j;
uf:=(uf+p mod 10) mod 10;
end;
writeln(x,uf);
end;
close(f); close(x);
end.
