1
*Xác định bài toán
-input: a,b
-output: ucln(a,b);
*Xây dựng thuật toán
-Bước 1: nhập a,b
-Bước 2: nếu a>b thì a:=a-b
-Bước 3: ngược lại thì b:=b-a
-Bước 4: Nếu a<>b thì quay lại bước 2
-Bước 5: ucln:=a;
-Bước 6: Xuất ucln
-Bước 7: Kết thúc
2:
*Xác định bài toán
-input: a,b
-output: bcnn(a,b);
*Xây dựng thuật toán
-Bước 1: nhập a,b
-Bước 2: nếu a>b thì a:=a-b
-Bước 3: ngược lại thì b:=b-a
-Bước 4: Nếu a<>b thì quay lại bước 2
-Bước 5: ucln:=a;
-Bước 6: bcnn:=(a*b)/ucln;
-Bước 7: xuất bcnn
-Bước 8: Kết thúc