Cod sursa(job #686245)
| Utilizator |  Florea Anastasia florea3 |
Data | 21 februarie 2012 15:42:04 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
var i,j,n,s,p:integer;
f1,f2:text;
begin
assign(f1,'cifra.in');
reset(f1);
assign(f2,'cifra.out');
rewrite(f2);
read(f1,n);
s:=0;
for i:=1 to n do
begin
p:=1;
for j:=1 to i do
p:=p*i;
s:=s+p;
end;
write(f2,s mod 10);
close(f1);
close(f2);
end.
