[tin 8]Viết chương trình.

[thaonguyen25]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

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.

 

[lamnguyen.rs]

Dù là bài này chỉ cần in ra số 10 là đủ nhưng mà cứ viết thế này cho các thầy cô vừa lòng =))

var
    N, d: integer;
begin
    N := 1; d := 0;
    while (N <= 1000) do 
    begin
        N := N * 2;
        d := d + 1;
    end;
    write('So Lan Gap La ', d);
end.