Question

câu 1 viết chương trình tínhM= \(1+\frac{1}{1.2}+\frac{2}{2.3}+\frac{3}{3.4}+....+\frac{98}{98.99}+\frac{99}{99.100}\)

Answer 1

program an_danh;
uses crt;
var kq:real;
i:integer;
begin
clrscr;
kq:= 1;
for i:= 1 to 99 do kq:= kq + (i / (i * (i + 1)));
write('M= ',kq:0:10);
readln
end.

Answer 2

program an_danh;
uses crt;
var kq:real;
i:integer;
begin
clrscr;
kq:= 1;
for i:= 1 to 99 do kq:= kq + (i / (i * (i + 1)));
write('M= ',kq:0:10);
readln
end.

Answer 3

aai giúp mình với :((

Answer 4

uses crt;
var i:longint;
m:real;
begin
clrscr;
m:=1;
for i:=1 to 99 do
m:=m+(i/(i*(i+1)));
writeln('M=',m:4:2);
readln;
end.