Bài 7. Câu lênh lặp

HA

Viết chương trình tính:

S= 1/1.2+1/2.3+...+1/n (n+1).

LD
16 tháng 2 2019 lúc 19:20
program help; uses crt; var i, n: integer; A: real; begin clrscr; write('Nhap so n vao: n = '); read(n); A:=0; for i:=1 to n do A:=A+1/(i*(i+1)); writeln('Tong A thu duoc la ',A); readln end.
Bình luận (0)

Các câu hỏi tương tự
QN
Xem chi tiết
NH
Xem chi tiết
VD
Xem chi tiết
LD
Xem chi tiết
PH
Xem chi tiết
ML
Xem chi tiết
TH
Xem chi tiết
TQ
Xem chi tiết
HD
Xem chi tiết