Modern Cute đã viết:Viết chương trình giải bài toán sau: :?: 
Một tờ giấy có độ dày 1 mm.Hỏi phải gấp đôi tờ giấy ít nhất bao nhiêu lần để có độ dày lớn hơn 1 m(1000 mm)
Giúp mình với nha,gấp lắm rồi,thứ 3 này mình kiểm tra 45 phút tin. :roll: 

Code:

program tinhtoan;
uses crt;
var
    N, i: integer;
begin
clrscr;
    N := 1; i := 0;
    while (i <= 1000) do
    begin
        N := N * 2;
      i := i + 1;
    end;
    write('so lan can phai gap la:  ', i);
readln
end.