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)
```
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.
![](https://rs.olm.vn/images/avt/0.png?1311)
procedure hoandoi(a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;
![](https://rs.olm.vn/images/avt/0.png?1311)
a)
*Hàm
function giaithua(n:integer):longint;
var i:integer;
begin
giaithua:=1;
for i:=1 to n do
giaithua:=giaithua*i;
end;
b)
*Hàm
function max(a,b:integer):integer;
begin
max:=a;
if max<b then max:=b;
end;
c)
*Thủ tục
procedure hoandoi(a,b:integer);
var tam:integer;
begin
begin
tam:=a;
a:=b;
b:=tam;
end;
end;
![](https://rs.olm.vn/images/avt/0.png?1311)
uses crt;
var a,b,tam:integer;
{------------------------------------------------------}
procedure nhap(var n:integer);
begin
write('nhap mot so nguyen bat ky: '); readln(n);
end;
{--------------------------------------------------------}
procedure doicho(var x,y:integer);
begin
writeln('so a truoc khi thay doi la: ',x);
writeln('so b truoc khi thay doi la: ',y);
begin
tam:=x;
x:=y;
y:=tam;
end;
writeln('so a sau khi thay doi la: ',x);
writeln('so b sau khi thay doi la: ',y);
end;
{---------------------------------------------------------}
begin
clrscr;
nhap(a);
nhap(b);
doicho(a,b);
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
a)
Type mang=array[1..100]of integer;
procedure nhap(var a:mang);
var n,i:integer;
begin
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
end;
b) procedure xuat(var a:mang);
var i,n:integer;
begin
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
end;
![](https://rs.olm.vn/images/avt/0.png?1311)
Program HOC24;
var t: longint;
a,b: integer;
function gt(x: integer): longint;
var i: integer; tich: longint;
begin
tich:=1;
for i:=1 to n tich:=tich*i;
gt:=tich;
end;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
t:=gt(a)+gt(b)+gt(a-b);
write('T = ',t);
readln
end.
1)
uses crt;
var a,b,bcnn,i:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln(bcnn);
readln;
end.
2:
procedure hoandoi(a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;