Question

Bài 1: Tính tổng ( Sử dụng lệnh while....do )

A=1+\(\dfrac{1}{2}\) +\(\dfrac{1}{3}\) +.......+\(\dfrac{1}{n}\) ( n được nhập từ bàn phím )

Bài 2: Tính tổng ( Sử dụng lệnh while....do )

T=1+\(\dfrac{1}{3}\) +\(\dfrac{1}{5}\) +........+\(\dfrac{1}{n}\) ( n nhập từ bàn phím ) 

Bài 3: Tính tổng ( Sử dụng lệnh while....do )

A=\(\dfrac{1}{1\cdot3}\) + \(\dfrac{1}{2\cdot4}\) + \(\dfrac{1}{3\cdot5}\) +.........+\(\dfrac{1}{n\left(n+2\right)}\) ( n nhập từ bàn phím ) 

Giúp với mai mink ktra rồi!

 

Answer 1

Bài 1: 

uses crt;

var a:real;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

a:=0;

i:=1;

while i<=n do 

begin

a:=a+1/i;

i:=i+1;

end;

writeln(a:4:2);

readln;

end.