Cod sursa(job #108850)

Utilizator loriKis Levente Lorand lori Data 23 noiembrie 2007 23:20:40
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.37 kb
var t,n,i,k:longint;
begin
 assign(input,'chiftea.in');reset(input);
 assign(output,'chiftea.out');rewrite(output);
  readln(t);
   for i:=1 to t do begin
    readln(n); k:=trunc(sqrt(n));
    if (k*k)=n then writeln(4*k)
               else
     if k*(k+1)>=n then writeln(4*k+2)
                   else writeln(4*k+4);
   end;
 close(input);close(output);
end.