Câu 1 :

uses crt;

var i, n : integer; S : real;

begin

clrscr;

S := 0;

write('Nhap so n : '); readln(n);

for i := 1 to n do S := S + 1/ i;

write('S = ', S : 2 : 2);

readln

end.

Câu 2 :

uses crt;

var i, a : integer; S : real;

begin

clrscr;

write('Nhap so a : '); readln(a);

S := 0;

for i := 1 to 100 do S := S + 1/ (a + i);

write('S = ', S : 2 : 2);

readln

end.

#minh gửi code pascal nhá 
#nếu không hiểu có thể cmt cho mình nhá 
#nhớ vote cho mình 5 sao và tym , ctlhn nhá

#code pascal

Cau 1

uses crt;
var i,n : integer;
sum: real;
begin
clrscr;
sum:=0;
for i:=1 to 10 do 
sum:=sum+1.0/i;
write('tong tu 1 den 1/n ',sum:2:3);
readln
end.

Cau 2 :

uses crt;
var i,n : integer;
sum,a: real;
begin
clrscr;
write('Nhap a = ');
readln(a);
sum:=0;
for i:=1 to 100 do 
sum:=sum+1.0/(a+i);
write('tong :  ',sum:2:2);
readln
end.