b/
Program BTH;
uses crt;
var i,n:longint;
s:real;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do s:=s+1/i;
writeln('Tong day so tren la: ',s:4:2);
readln;
end.
d/
Program BTH;
uses crt;
var i,n:longint;
s:real;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
If i mod 2=0 then s:=s+1/i;
end;
writeln('Tong day so tren la: ',s:4:2);
readln;
end.
f/
Program BTH;
uses crt;
var i,n:longint;
s:real;
Begin
clrscr;
write('Nhap n: ');readln(n);
For i:=1 to n do
Begin
If i mod 2=1 then s:=s+1/i;
end;
writeln('Tong day so tren la: ',s:4:2);
readln;
end.