Cod sursa(job #108850)
Utilizator | 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.