làm sao để dãy số sau thành 2 số tự nhiên tăng dần : a,...
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Đáp án là C
Vì đây là dãy số tự nhiên liên tiếp tăng dần nên:
Số có 1 chữ số thỏa mãn: 2 --> 1 số
Số có 2 chữ số thỏa mãn: 20;22 ---> 2 số
Số có 3 chữ số thỏa mãn: 200;202;220;222 ---> 4 số
Số có 4 chữ số thỏa mãn: ...........----->8 số
Số có 5 chữ số thỏa mãn:...........-----> 16 số
Số có 6 chữ số thỏa mãn:...........------> 32 số
---> Tổng cộng 1+2+4+8+16+32 = 63 số
Số thứ 64: 2000000, số thứ 65: 2000002, số thứ 66: 2000020
Vậy số cần tìm nằm ở vị trí 66 trong dãy.
1; 3; 5; 7; 9 ; 11
Sắp sếp: 1113579 (11; 1; 3; 5; 7; 9)
Cách đọc: Một triệu một trăm mười ba nghìn (ngàn) năm trăm bảy mươi chín
1113579 không chia hết cho 2 vì chữ số tận cùng là chữ số lẻ
1113579 không chia hết cho 5 vì chữ số tận cùng không phải là 0 hoặc 5
1113579 chia hết cho 3 vì tổng của các chữ số là 27, mà 27 chia hết cho 3
Em chọn nghìn hoặc ngàn đều được nhé! Tùy theo từ em hay nói
1)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] > a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep tang dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.
2)
Var array:[1..1000] of integer;
i,n,t:integer;
Begin
Write('n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] < a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Sap xep giam dan ');
For i:=1 to n do write(a[i]:8);
Readln
End.