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.