Question

[Chuu]

GIÚP EM MN ƠI, MAI EM NỘP R Ạ T-T.

Xoá sạch màn hình kết quả, sử dụng vòng lặp While . do hoặc For..do viết chương trình tính tổng sau: S=1/1*2+1/2*3+1/3*4+.....+1/n*(n+1)

N nhập từ bàn phím

Answer 1

[Minh Lệ]

Program HOC24;

uses crt;

var i,n: integer;

s: real;

begin

clrscr;

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

s:=0;

for i:=1 to n do s:=s+1/(i*(i+1));

write('S= ',s:6:2);

readln

end.

Answer 2

[Chuu]

Còn lệnh while...do mình làm như thế nào ạ?