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.

9 tháng 3 2023

# Nhập số nguyên dương N từ bàn phím

N = int(input("Nhập số nguyên dương N: "))

# Khởi tạo dãy số nguyên

numbers = []

# Vòng lặp để nhập N số nguyên và thêm chúng vào danh sách numbers

for i in range(N):

     number = int(input("Nhập số thứ {}:".format(i+1)))

     numbers.append(number)

# In ra dãy số đã nhập

print("Dãy số bạn đã nhập là: ", end="")

for number in numbers:

     print(number, end=" ")

print()

# Tính tổng các số chia hết cho 3 và in ra màn hình

total = 0

for number in numbers:

     if number % 3 == 0:

          total += number

print("Tổng các số trong dãy chia hết cho 3 là: ", total)

17 tháng 10 2023

Program HOC24;

uses crt;

var i,n: integer;

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

t: longint;

begin

clrscr;

readln(n); 

t:=0;

for i:=1 to n do

begin

read(a[i]);

if (a[i] mod 2=0) and (a[i] mod 5=0) then t:=t+a[i];

end;

readln;

write(t);

readln;

end.

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.