Câu 1:

program TinhTong;
uses crt;
Var n, i: integer;
    S: real;
BEGIN
    S:= 0;
    Writeln('Nhập một số nguyên dương khác 0: ');read(n);
    for i:= 1 to n do
    Begin
        S:= S + (i/(i+2));
    End;
    Writeln(S);
    Readln;
END.

Câu 2:

a) *Giải thích:

Ta lập một bảng khung giá trị dựa vào số lần lặp lại của hàm while, ta có:

Số lần lặp | Giá trị i | Giá trị T |

       0                 0             30

       1                 3             27

       2                 6             21

       3                 9             12

       4                 12           0

Do T lúc này không lớn hơn 5 nên dừng hàm while, số lần lặp của hàm là 4. Giá trị của i và T lần lượt là 12 và 0 sau khi kết thúc chương trình

Chương trình/ Thuật toán:

program TinhToanNgauHung; {Không bắt buộc}
uses crt;
Var i, T: integer;
BEGIN
    i:= 0; T:= 30;
    While (T > 5) do
    Begin
        i:= i+3; T:= T-i;
    End;
    Writeln(i); Writeln(T);
    Readln;
END.