1. 

- Bước 1: Nhập N (bn nhập N=60) 

- Bước 2: i←0, S←0

- Bước 3: i←i+1

- Bước 4: 4.1 Nếu i>N thì kết thúc thuật toán và thông báo kết quả 

4.2 S←S+i rồi quay lại bước 3

2.

- Giống : Đều là câu lệnh lặp

- Khác:

* Câu lệnh lặp với số lần biết trước :

+ Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần đã được xác định từ trước.

+  Điều kiện là 1 giá trị của 1 biến đếm có giá trị nguyên

* Câu lệnh lặp với số lần chưa biết trước :

+ Chỉ thị cho máy tính thực hiện 1 lệnh hay 1 nhóm lệnh với số lần lặp chưa biết trước.

+ Điều kiện tổng quát hơn, có thể là kiểm tra của 1 giá trị có thực, cũng có thể là 1 điều kiện tổng quát khác.

Câu 1:

Program FNG;
Uses crt;
Var A: array[1..10000] of longint;
    n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to 60 do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        For i:=1 to 60 do
                If A[i]=n then
                Begin
                        Write('A[',i,']');
                        Break;
                End;
        Readln
End.

Câu 2:

- For..to..do: Lặp với số lần biết trước, biến đếm tự tăng lên 1 đơn vị. Biến đếm giá trị nguyên

- While..do: Lặp với số lần không biết trước, biến đếm không tự tăng hoặc giảm. Điều kiện là phép so sánh