BAI TINH TONG M

Gửi bài vào đây !

program tinh;
uses crt;
var n:integer;
m:real;
begin
clrscr;
m:=0;
n:=0;
while n<=113 do
begin
n:=n+1;
m:=m+1/n;
end;
writeln('m=',m-1/n);
readln;
end.

program tinh_tong;
uses crt;
var n:integer;
M:real;
begin
clrscr;
M:=0;
n:=0;
while n<=113 do
begin
n:=n+1;
M:=M+1/n;
end;
write('gia tri M la',M-1/n);
readln
end.

program gia_tri;
uses crt;
var x: integer;
M: real;
begin
clrscr;
M:=0;x:=0;
while x<=113 do
begin x:=x+1;
M:=M+1/x;
end;
writeln('M=',M);
readln
end.

program tinhtong;
uses crt;
var S:real;
   n:integer;
begin
S:=0;
n:=1;
clrscr;
while n<113 do
begin

S:=S+1/n;
end;
writeln('tong S la',S);
readln;
end.