Question

Viết chương trình tính S=\(\frac{1}{1.2}+\frac{1}{2.3}+\frac{1}{3.4}+....+\frac{1}{99.100}\)

Answer 1

program Tinh_tong;

uses crt;

var S, i: longint;

begin

clrscr;

S:= 0;

i:=1;

For i:=1 to 99 do S:= S + 1/[i*(i+1)];

writeln('Tong cua S=', S);

Readln

End.

Answer 2

program Tinh_tong;

uses crt;

var S,i,n:longint;

begin

clrscr;

writeln('hay nhap n',); Readln(n);

S:=0;

i:=1;

For i:=\(\frac{1}{1.3}\)to\(\frac{1}{99.100}\) do \(S:=S+\frac{1}{99.100}\);

i:=i+1;

IF i<=n THEN writeln('Tong cua S=',A);

Readln

End.

Answer 3

var

S: real;

i: integer;

Begin

S:=0;

i:=i*(i+1);

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

writeln('tong la=', S);

readln

end.