Cod sursa(job #160494)
| Utilizator |  Nitescu Alexandra alepoisongirl |
Data | 15 martie 2008 22:20:48 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
var f,g:text;
t,nr,n,i,cif,j:integer;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
readln(f,t);
for i:=1 to t do
readln(f,n);
nr:=0;
for i:=1 to t do
j:=1;
while j<n do
begin
nr:=nr+j*j;
j:=j+1;
end;
cif:=nr div 10;
writeln(g,cif);
close(f);
close(g);
end.
