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.
1:
Program baitap1;
Uses crt;
Var A:array[1..200] of integer;
S,i:integer;
Begin
Clrscr;
S:=0;
For i:=1 to 10 do
Begin
Write('A[',i,']=');
Readln(A[i]);
If (A[i] mod 2=1) then S:=S+A[i];
End;
Writeln('Tong cac phan tu co gia tri le:',S);
Readln
2:
Program baitap2;
Uses crt;
Var A:array[1..200] of integer;
S,i:integer;
Begin
Clrscr;
S:=0;
For i:=1 to 15 do
Begin
Write('A[',i,']=');
Readln(A[i]);
If (A[i] mod 2=0) then S:=S+A[i];
End;
Writeln('Tong cac phan tu co gia tri chan:',S);
Readln
End.
End.
Câu 1:
a. 57b. 19c. 51
câu 2:a. 1111b. 11011c. 101001
câu 3 bạn cho mình bài ví dụ về cách được không mình quên rồi
101110102 -> 18610
Cách tính : 1.27+0.26+1.25+1.24+1.23+0.22+1.21+0.20 = 186
18610 -> BA16
Cách tính:
186:16=11 (dư 10) -> A
11:16=0 (dư 11) -> B
101110102 -> BA16
10110010112 -> ?16 tương tự bài trên bạn nhé
8BC16 -> 223610
Cách tính: 8.162+11.161+11.160 = 2236
223610 -> 1000101111002
Cách tính:
2236:2=1118 (dư 0)
1118:2=559 (dư 0)
559:2=279 (dư 1)
279:2=139 (dư 1)
139:2=69 (dư 1)
69:2=34 (dư 1)
34:2=17 (dư 0)
17:2=8 (dư 1)
8:2=4 (dư 0)
4:2=2 (dư 0)
2:2=1 (dư 0)
1:2=0 (dư 1)
Vậy 8BC16 -> 1000101111002
Bài dưới cũng tương tự bạn nhé. Mình đã hướng dẫn cách tính rất kĩ rồi nếu bạn vẫn thắc mắc thì phản hồi dưới bài này hoặc nhắn tin cho mình nhé
Lưu ý: khi đổi từ hệ số 10 sang bất kì hệ số nào thì bạn lấy phần dư rồi đảo ngược lại số dư lại nhé.
a: \(25_{10}=11101_2\)
b: \(101011_2=43_{10}\)
c: \(3EF_{16}=1007_{10}\)
d: \(540_{10}=21C_{16}\)
e: \(11101010_2=EA_{16}\)
f: \(AFC_{16}=\text{101011111100}_2\)
Câu 1:
a: \(138_{10}=\text{10001010}_2\)
b: \(11001110_2=206_{10}\)