Bằng cách nhấp vào Đăng nhập, bạn đồng ý Chính sách bảo mật và Điều khoản sử dụng của chúng tôi. Nếu đây không phải máy tính của bạn, để đảm bảo an toàn, hãy sử dụng Cửa sổ riêng tư (Tab ẩn danh) để đăng nhập (New Private Window / New Incognito Window).
Đây là chương trình tính tích các phân tử là số chẵn của dãy n số nguyên:
```
program TinhTichSoChan;
var
n, i, x: integer;
tich: longint;
begin
write('Nhap so phan tu cua day: ');
readln(n);
tich := 1;
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(x);
if x mod 2 = 0 then // kiem tra x co phai la so chan hay khong
tich := tich * x; // neu la so chan thi nhan vao tich
end;
writeln('Tich cac phan tu la so chan cua day la: ', tich);
readln; // dung man hinh
end.
```
Tham gia Cộng đồng Lazi trên các mạng xã hội | |
LaziGo: | https://go.lazi.vn/join/lazigo |
Discord: | https://discord.gg/4vkBe6wJuU |
Kênh FB: | https://m.me/j/AbY8WMG2VhCvgIcB |
FB group: | https://www.fb.com/groups/lazi.vn |
FB page: | https://www.fb.com/lazi.vn |
Youtube: | https://www.youtube.com/@lazi-vn |
Tiktok: | https://www.tiktok.com/@lazi.vn |
Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi
Vui | Buồn | Bình thường |