Câu 1:
Giá trị đầu là 1
Giá trị cuối là 5
Số lần lặp là 5
Giá trị của S ≈ 2,272
Câu 2:
Program BTH;
uses crt;
var b:real;
a,c:longint;
Begin
clrscr;
Write('Nhap so nguyen N: ');readln(a);
for c:=1 to a do
b:=b+1/c;
writeln('Tong day so tren la: ',b:4:2);
readln;
end.