Cod sursa(job #279352)
| Utilizator |  Profir Tudor tudgal1001 |
Data | 12 martie 2009 19:49:49 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.28 kb |
program ucif;
var i,n,us,up,j:integer;
f,g:text;
begin
assign(f,'cifra.in');
reset(f);
read(f,n);
close(f); us:=0;
for i:=1 to n do
begin
up:=1;
for j:=1 to i do
up:= up*i mod 10;
us:=(us+up) mod 10;
end;
assign(g,'cifra.out');
rewrite(g);
writeln(g,us);
end.