Задача из e-olimp №8

[vadimmmm]

Какое минимальное количество спичек необходимо для того, чтобы выложить на плоскости n квадратов со стороной в одну спичку? Спички нельзя ломать и класть друг на друга. Вершинами квадратов должны быть точки, где сходятся концы спичек, а сторонами – сами спички.

Напишите программу, которая по количеству квадратов n, которое необходимо составить, находит минимальное необходимое для этого количество спичек.


Технические условия
Входные данные

Одно целое число n (1 ≤ n ≤ 109).

Выходные данные

Вывести минимальное количество спичек, требуемых для составления n квадратов.

[raxp]

Экзамен что-ли? Так вы разделом опшиблись.

[009]

var n,i,col,j:longint;
begin
read(n);
if n<4 then begin
if n=1 then writeln(4);
if n=2 then writeln(7);
if n=3 then writeln(10);
end
else begin
i:=1; col:=4;
while (i+1)*(i+1)<=n do begin
col:=col+(2*(i+1))*2;
inc(i);
end;
n:=n-i*i;
if n>0 then begin
dec(n); col:=col+3;
end;
j:=1;
while (j<i) and (n>0) do begin    
dec(n); col:=col+2; inc(j);
end;
if n>0 then begin    
dec(n); col:=col+3;
end;
j:=1;
while (j<i) and (n>0) do begin
dec(n); col:=col+2; inc(j);
end;
writeln(col);
end;
end.

[kostan3]

вот ещё вариант

var n, max, s, m, k, i, j:longint;
begin
     readln (n);
     if trunc(sqrt(n))<>sqrt(n) then 
     begin m:=trunc(sqrt(n))+1;
           s:=4+(m-2)*2*3+(m-2)*(m-2)*2;
     end
     else begin m:=trunc(sqrt(n));
     s:=4+(m-1)*3*2+(m-1)*(m-1)*2;
     writeln (s); halt;
     end;
     max:=n-(m-1)*(m-1);
     k:=1; s:=s+3;
     for i:=2 to m-1 do
     begin
          if k=max then begin writeln (s); halt; end;
          s:=s+2;
          inc(k);
     end;
     if k=max then begin writeln (s); halt; end;
     s:=s+3; inc(k);
     for i:=2 to m do
     begin
          if k=max then begin writeln (s); halt; end;
          s:=s+2;
          inc(k);
     end;
     writeln (s);
end.