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.
```
def tich_tu_1_den_n(n):
tich = 1
for i in range(1, n+1):
tich *= i
return tich
```
Hàm này sử dụng vòng lặp for để tính tích của các số từ 1 đến n. Ban đầu, ta khởi tạo biến tich bằng 1. Sau đó, ta lặp qua các số từ 1 đến n và nhân chúng vào biến tich. Cuối cùng, ta trả về giá trị của biến tich.
Viết hàm tính tổng các số chia hết cho 3 từ 1 đến n:```
def tong_so_chia_het_cho_3(n):
tong = 0
for i in range(1, n+1):
if i % 3 == 0:
tong += i
return tong
```
Hàm này sử dụng vòng lặp for để tính tổng của các số chia hết cho 3 từ 1 đến n. Ban đầu, ta khởi tạo biến tong bằng 0. Sau đó, ta lặp qua các số từ 1 đến n và kiểm tra xem số đó có chia hết cho 3 không. Nếu có, ta cộng số đó vào biến tong. Cuối cùng, ta trả về giá trị của biến tong.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if ((x<0) and (x%2!=0)) t=t+x;
}
cout<<t;
return 0;
}
program BaiToanMang;
var
A: array[1..100] of integer;
N, i, demChan, tongLeChia3: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(N);
writeln('Nhap cac phan tu cua mang: ');
for i := 1 to N do
begin
write('a[', i, ']= ');
readln(A[i]);
end;
tongLeChia3 := 0;
for i := 1 to N do
begin
if (A[i] mod 2 = 1) and (A[i] mod 3 = 0) then
begin
tongLeChia3 := tongLeChia3 + A[i];
end;
end;
writeln('Tong cac so le chia het cho 3: ', tongLeChia3);
demChan := 0;
for i := 2 to N do
begin
if (A[i] mod 2 = 0) and (i mod 2 = 1) then
begin
demChan := demChan + 1;
end;
end;
writeln('So phan tu chan o vi tri le: ', demChan);
writeln('Cac so chan chia het cho 5: ');
for i := 1 to N do
begin
if (A[i] mod 2 = 0) and (A[i] mod 5 = 0) then
begin
write(A[i], ' ');
end;
end;
end.
ko bt đúng ko ko dùng pascal nhiều
