Một Tờ Giấy Có độ Dày A Um (mi-cro-met). Hỏi Cần ...

Có thể bạn quan tâm

Tìm×

Tìm kiếm với hình ảnh

Vui lòng chỉ chọn một câu hỏi

Tìm đáp án

- Đăng nhập
- |
- Đăng ký

Hoidap247.com Nhanh chóng, chính xác

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Đăng nhậpĐăng ký

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

Ng0clduenfh
Chưa có nhóm

Trả lời
427
Điểm
8094
Cảm ơn
274

Tin Học
Lớp 8
10 điểm
Ng0clduenfh - 19:27:45 02/01/2021

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

Hỏi chi tiết
Báo vi phạm

Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!

TRẢ LỜI

ngocnhi3606
Chưa có nhóm

Trả lời
4
Điểm
0
Cảm ơn
1

ngocnhi3606

02/01/2021

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.

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy

Cảm ơn 1
Báo vi phạm

- Ng0clduenfh
- Chưa có nhóm
- Trả lời
  427
- Điểm
  8094
- Cảm ơn
  274
Cảm ơn bạn nhiu ạ Bạn có thể vào trang giúp minh 1 số bài khác được khong ạ
- ngocnhi3606
- Chưa có nhóm
- Trả lời
  4
- Điểm
  0
- Cảm ơn
  1
Um để mình xem nhé bạn
- Ng0clduenfh
- Chưa có nhóm
- Trả lời
  427
- Điểm
  8094
- Cảm ơn
  274
Thanks b
- lamphuongvi123456
- Chưa có nhóm
- Trả lời
  774
- Điểm
  6295
- Cảm ơn
  874
cho mik hay nhất ạ đang rất cần

Đăng nhập để hỏi chi tiết avatar

lamphuongvi123456
Chưa có nhóm

Trả lời
774
Điểm
6295
Cảm ơn
874

lamphuongvi123456

03/01/2021

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.

Hãy giúp mọi người biết câu trả lời này thế nào?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy

Cảm ơn
Báo vi phạm

- tangtuan
- Chưa có nhóm
- Trả lời
  0
- Điểm
  50
- Cảm ơn
  0
var a,k,b:longint; begin read(a,b); b:=b*10000; k:=0; while a<=b do begin a:=a*2; k:=k+1; end; write(k); end.