Bài tập chương trình con: (procedure và function) Bài 4: Viết hàm tính tích các số lẻ từ 1 đến n Bài 5: Viết hàm tính tổng các số chẵn chia hết cho 3 từ 1 đến n
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
```
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
{PROGRAM Bai_tap1;
USES crt;
VAR n, i, C, L:Bytbe;
BEGIN
clrscr;
Write('Nhap n:');Readln(n);
C:=0;L:=0;
For i:=1 to n do
If i mod 2=0 then C:=C+i else L:=L+i;
writeln('Tong cac so chan la:',C);
writeln ('Tong cac so le la:',L);
Readln;
end.
}
![](https://rs.olm.vn/images/avt/0.png?1311)
Câu 1:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.