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.

21 tháng 4 2023
Viết hàm tính tích các số từ 1 đến n:

```
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.

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do 

  if i mod 3=0 then 

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln('Tong cac so chia het cho 3 la: ',t);

readln;

end.

25 tháng 2 2022

viết ghép giúp mình ạ

25 tháng 2 2022

Hãy viết chương trình Pascal thực hiện các công việc sau (đặt tên program tên mình)

29 tháng 12 2020

uses crt;

var n,i,t:integer;

begin

clrscr;

repeat

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

until n>0;

t:=0;

for i:=1 to n do 

  if i mod 3=0 then t:=t+i;

writeln('Tong cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ',t);

readln;

end.

20 tháng 3 2022

Program HOC24;

var i,n: integer;

S,P: longint;

begin

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

{..............................................}

readln

end.

-----------------------------------------------------------

Bạn điền vào {........................} theo từng bài nhé

a) S:=0; 

for i:=1 to N do if i mod 2=1 then s:=s+i;

write('S= ',s);

b)

S:=0;

for i:=1 to N do if i mod 2=0 then s:=s+i;

write('S= ',s);

c) P:=1;

for i:=1 to N do if i mod 2=0 then p:=p*i;

write('P= ',p);

d)

P:=1;

for i:=1 to N do if i mod 2=1 then p:=p*i;

write('P= ',p);

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

int t,i;

int main()

{

t=0;

for (i=1; i<=20; i++)

if (i%4==0) t=t+i;

cout<<t;

return 0;

}

2: 

#include <bits/stdc++.h>

using namespace std;

int i,dem;

int main()

{

dem=0;

for (i=1; i<=20; i++)

if ((i%2==1) and (i%3==0)) dem++;

cout<<dem;

return 0;

}

21 tháng 4 2023
Viết hàm tính tổng các số từ 1 đến n:

```
def tong_tu_1_den_n(n):
tong = 0
for i in range(1, n+1):
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ố 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à cộng chúng vào biến tong. Cuối cùng, ta trả về giá trị của biến tong.

Viết thủ tục thực hiện việc hoán đổi hai giá trị của a và b:

```
def hoan_doi(a, b):
temp = a
a = b
b = temp
return a, b
```

Thủ tục này sử dụng biến tạm temp để lưu giá trị của a trước khi hoán đổi. Sau đó, ta gán giá trị của b cho a và giá trị của temp (tức là giá trị ban đầu của a) cho b. Cuối cùng, ta trả về hai giá trị đã được hoán đổi.

7 tháng 3 2023

 

 

 

7 tháng 3 2023

uses crt;

var i,n,d:longint;

begin 

d:=0;

writeln('nhapn=');read(n);

for i:=1 to n do

begin

if i mod 3=0 then write(i,' ');

if i mod 3=0 then d:=d+i;

end;

writeln('tong=',d);

readln;

end;