Cod sursa(job #628528)
| Utilizator |  Igna Darius ignadarius |
Data | 1 noiembrie 2011 17:10:04 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.26 kb |
program cifra;
var i,j,n,s,p,y,t:integer;
begin
write('t=');readln(t);
writeln(t);
for y:=1 to t do
begin
write('n=');readln(n);
for i:=1 to n do
begin
begin
p:=1;
for j:=1 to i do
p:=p*i;
end;
s:=s+p;
end;
writeln(n,s mod 10:7);
end;
readln;
end.
