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

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

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;

3:

procedure max(a,b:integer);

begin

if a>b then max:=a

else max:=b;

end;

a) Thủ tục ngugiac:

b) Thủ tục chieckhantheu

uses crt;

var a:array[1..100]of integer;

i,n,dem,t,tb:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

t:=0;

for i:=1 to n do 

  if a[i]>0 then

begin

dem:=dem+1;

t:=t+a[i];

end;

writeln('So luong phan tu duong la: ',dem);

writeln('Tong cac phan tu duong la: ',t);

writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

sort(a+1,a+n+1);

for (i=n; i>=1; i--) cout<<a[i]<<" ";

return 0;

}

uses crt;

var a,b,c:real;

dt:real;

{---------------------------chuong-trinh-con-nhap-----------------------------}

procedure nhap(var x,y,z:real);

begin

repeat

write('Nhap a=');readln(x);

write('Nhap b='); readln(y);

write('Nhap c='); readln(z);

until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

end;

{-----------------chuong-trinh-con-tinh-dien-tich------------------------}

function dientich(var f,g,h:real):real;

var p:real;

begin

p:=(f+g+h)/2;

dientich:=sqrt(p*(p-f)*(p-g)*(p-h));

end;

{--------------------------chuong-trinh-chinh--------------------------}

begin

clrscr;

nhap(a,b,c);

dt:=dientich(a,b,c);

writeln('Dien tich tam giac la: ',dt:4:2);

readln;

end.

A

A

A