Cod sursa(job #708891)
| Utilizator |  Astalas Paul paul777 |
Data | 7 martie 2012 15:13:30 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
var v:array[1..30000]of longint;
i,t:integer;s,p:longint;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);readln(f,t);
for i:=1 to t do readln(f,v[i]);
for i:=1 to t do begin
for j:=1 to v[i]do begin
for k:=1 to j do
p:=p*j;s:=s+p;end;writeln(g,s);end;close(f);close(g);end.