ĐỀ 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.