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.

6 tháng 4 2023

# Dãy số thứ nhất

list1 = list(map(int, input("Nhập dãy số thứ nhất, cách nhau bằng khoảng trắng: ").split()))

so_chan1 = 0

so_le1 = 0

for num in list1:

     if num % 2 == 0:

          so_chan1 += 1

     else:

          so_le1 += 1

print("Trong dãy số thứ nhất có", so_chan1, "số chẵn và", so_le1, "số lẻ.")

# Dãy số thứ hai

list2 = list(map(int, input("Nhập dãy số thứ hai, cách nhau bằng khoảng trắng: ").split()))

so_chan2 = 0

so_le2 = 0

for num in list2:

     if num % 2 == 0:

          so_chan2 += 1

     else:

          so_le2 += 1

print("Trong dãy số thứ hai có", so_chan2, "số chẵn và", so_le2, "số lẻ.")

27 tháng 3 2023

# Yêu cầu người dùng nhập 20 số nguyên không âm
numbers = []
for i in range(20):
    number = int(input("Nhập số nguyên không âm thứ {}: ".format(i+1)))
    numbers.append(number)

# Tính tổng các phần tử là số chẵn ở vị trí lẻ
total = 0
for i in range(1, 20, 2):
    if numbers[i] % 2 == 0:
        total += numbers[i]

# Hiển thị kết quả
print("Tổng các phần tử là số chẵn ở vị trí lẻ là:", total)

12 tháng 3 2023

Program HOC24;

var i,n: integer;

t: longint;

a: array[1..1000] of integer;

begin

write('Nhap n '); readln(n);

for i:=1 to n do 

begin

write('a[',i,']= '); readln(a[i]);

end;

t:=0;

for i:=1 to n do t:=t+a[i];

write('Ket qua la: ',t);

readln

end.

26 tháng 4 2023

program TongSoChan;

var
  n, i, x, tong: integer;

begin
  write('Nhap so nguyen n: ');
  readln(n);
  
  tong := 0;
  
  for i := 1 to n do
  begin
    read(x);
    if x mod 2 = 0 then
      tong := tong + x;
  end;
  
  writeln('Tong cac so chan la: ', tong);
  readln; 
end.

7 tháng 3 2023

n = int(input("Nhập vào số tự nhiên n: "))

count = 0

for i in range(2, n+1):

      if i % 3 == 0:

            count += 1

print("Số lượng số chẵn chia hết cho 3 trong đoạn từ 2 đến n là:", count)

   

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do

if i mod 7=0 then inc(dem);

write(dem);

readln;

end.