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.
# Nhập danh sách số nguyên
lst = []
n = int(input("Nhập số lượng số nguyên trong danh sách: "))
for i in range(n):
lst.append(int(input("Nhập số nguyên thứ {}: ".format(i+1))))
# Tính tổng các số trong danh sách
total = sum(lst)
# Đưa ra kết quả
print("Tổng các số trong danh sách là:", total)
Program HOC24;
var a: array[1..1000] of integer;
i,n : integer;
t: longint;
begin
write('Nhap N: '); realdn(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 3 = 0 then t:=t+a[i];
write('Tong cac so la boi cua 3 trong danh sach la: ',t);
readln
end.
a = []
sum = 0
n = 5
# Nhập danh sách a
for i in range(n):
x = int(input("Nhập phần tử thứ " + str(i+1) + ": "))
a.append(x)
# Tính tổng các phần tử trong danh sách a
for i in range(n):
sum += a[i]
# In ra màn hình tổng các phần tử trong danh sách a
print("Tổng các phần tử trong danh sách a là: ", sum)
n = int(input("Nhập số lượng phần tử: "))
k = int(input("Nhập số nguyên k: "))
arr_num = []
for i in range(n):
x = int(input(f"Nhập phần tử thứ {i+1}: "))
arr_num.append(x)
print("Dãy số vừa nhập: ", arr_num)
sum_num = sum(arr_num)
tb_num = sum_num / n
print("Trung bình các số trong danh sách: ", tb_num)
print("Các số nằm ngoài khoảng k và số trung bình: ", end="")
for i in range(n):
if arr_num[i] < k or arr_num[i] > tb_num:
print(arr_num[i], end=" ")
Cau 1:
var i,dem:integer;
function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
bo:=true;
for i:=2 to n-1 do
if n mod i=0 then bo:=false;
if n>1 then ngto:=bo else ngto:=false;
end;
begin
for i:=2 to 100 do
if ngto(i) then dem:=dem+i;
write(dem);
readln;
end.
Cau 2:
var i,dem,n:longint;
begin
read(n);
dem:=1;
for i:=1 to n do
dem:=dem*i;
write(dem);
readln;
end.
Program HOC24;
var i,n: integer;
t: longint;
a: array[1..1000] of integer;
begin
write('Nhap so phan tu : '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
write('Ket qua la: ',t);
readln
end.