Cod sursa(job #1032725)
| Utilizator |  Shulghin Valera Valera |
Data | 15 noiembrie 2013 23:50:46 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
var a:array[1..10000] of integer;
i,j,k,n:integer;
f,g:text;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
readln(f,n);
a[1]:=1;a[2]:=3;k:=2;
for i:=3 to n do
begin
a[i]:=a[i-1]+2*k;
if i mod 2=0 then k:=k+1;
end;
writeln(g,a[n]);
close(f);close(g);
end.