K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
TT
1
11 tháng 10 2021
Program tinh;
Uses crt;
Var
a,b,tong,hieu:Integer;
Begin
If a>=b then ( neu a lon hon hoac bang b thi thong bao );
Write('nhap so a la');readln(a)
Write('nhap so b la');readln(b)
tong:=a+b
hieu:a-b
Writeln('tong hai so la',tong);
Writeln('hieu hai so la';hieu);
Readln;
End.
giúp vs nhé 
B
24 tháng 11 2021
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.
VD
16 tháng 9 2021
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é.