ĐỀ CỦA BẠN CÓ THỂ BỊ THIẾU NÊN MÌNH ĐÃ LÊN MẠNG TÌM.

Đề: Cuội thích chơi một trò chơi với bộ sưu tập gồm n viên đá của mình . Xếp n viên đá lên bảng hình chữ nhật chia thành lưới ô vuông đơn vị, sao cho mỗi ô vuông không quá một viên đá. Xác định kích thước của bảng cho chu vi nhỏ nhất mà Cuội có thể thực hiện được trò chơi

==================================

Bạn xem có được không.

==================================

program Hello;
uses crt;
var n,i,j,c,s,a,b:integer;
begin
    clrscr;
    readln(n);
c:= high(integer);
s:=-1;
    for i:= 1 to trunc(sqrt(n))+1 do
        for j:= 1 to trunc(sqrt(n))+1 do 
            begin
                if (i*j >= n) and ((i+j)*2 < c) then
                    begin
                        a:=i;
                        b:=j;
                        c:=(i+j)*2;
                    end;
            end;
    writeln('Kich thuoc: ', a, 'x', b);
    readln;        
end.

var i,n,r,t:longword;
    min:qword;
begin
    readln(n);
    min:=n*2+2;
    r:=1;
    for i:=2 to trunc(sqrt(n))+1 do
        begin
            t:=(n-1) div i + 1;
            if (t+i)*2<=min then
                begin
                    min:=(t+i)*2;
                    r:=i;
                end;
        end;
    if r<(n-1) div r + 1 then
        writeln(r,' ',(n-1) div r + 1)
    else
        writeln((n-1) div r + 1,' ',r);
end.