Cod sursa(job #1604351)
| Utilizator | Data | 18 februarie 2016 10:23:52 | |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.39 kb |
program cifra;
var a,b:text;
i,n,j,s,p,m,cod:integer;
st:string;
begin
p:=1;
assign(a,'cifra.in');
reset(a);
assign(b,'cifra.out');
rewrite(b);
readln(a,n);
for i:=1 to n do begin
readln(a,st);
val(st,m,cod);
for i:=1 to m do begin
for j:=1 to i do p:=p*i;
inc(s,p);
p:=1;
end;
p:=1;
writeln(b,s mod 10);
s:=0;
end;
close(a);
close(b);
end.