Một tờ giấy có độ dày a um (mi-cro-met). Hỏi cần xếp đôi tờ giấy ít nhất bao nhiêu lần để độ dày nhận được không nhỏ hơn b cm (xăng-ti-mét). Biết rằng 1cm=1000um.
Ví dụ:
Input: Độ day tờ giấy a: 10
Độ dày b cần có: 1
Output: Số lần xếp giấy: 10
CÁC BẠN ƠI, GIÚP MÌNH NĂN NỈ LUÔN Ạ t_t
Program to_giay;
uses crt;
var a,k: integer;
begin
a:=10; k:=0;
while not a>b do begin a:=a*2;
k:=k+1;
if a>bthen writeln(‘So lan phai gap to giay la ‘,k);
readln;
end.
Program to_giay;
uses crt;
var a,k: integer;
begin
a:=10;
k:=0;
while not a>b do
begin
a:=a*2;
k:=k+1;
if a>bthen writeln(‘So lan phai gap to giay la ‘,k);
readln;
end.