Cod sursa(job #17744)
| Utilizator |  Todoran Claudia klau |
Data | 16 februarie 2007 19:26:18 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.26 kb |
program problema2;
var i,j,s,uc,p:longint;
n:longint;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do begin
p:=1;
for j:=1 to i do p:=(p mod 10)*i;
s:=s+p;
end;
uc:=s mod 10;
write('ultima cifra a sumei este',' ',uc);
readln
end.
