![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
a: \(23AC1D_{16}=2337821_{10}\)
b: \(FC3DE_{16}=1033182_{10}\)
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
a) 973
b) 1011101
c) 58
e) 19039
f) 11111101
g) 43
k) 1EA9
l) 401
m) 111001101011
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a:array[1..100] of integer;
i,n,d,tong :integer;
begin
clrscr;
d:=0;
tong:=0;
readln(n);
for i:=1 to n do
readln(a[i]);
end;
for i:=1 to n do
if (a[i]>0) then begin
d:=d+1;
if d=1 then begin writeln('trong day co so nguyen duong '); write(' vi tri cua cac so duong ',i); end
else
begin
tong:=tong+a[i];
write(' ',i);
end;
end
else if ((i=n)and(d=0)) then write(' khong co so duong');
writeln;
writeln(' tong so luong so nguyen duong trong day so: ',d);
writeln(' ton cac so nguyen duong: ',tong);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Bước 1: Khai báo một biến nguyên A
Bước 2: Gán giá trị cho biến
Bước 3: Thực hiện phép chia lấy phần dư của A cho 2. Kiểm tra kết quả xem có bằng 0 không.
Bước 4: Nếu true, in dòng chữ A la so chan
Cũng tương tự hai cách in trên, đầu tiên bạn cần mở hộp thoại Print. Sau đó thay vì chọn Print All Pages hay Print Current Page, bạn chọn Custom Print. Sau đó, bạn điền các trang cần in dưới hộp Pages