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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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

Minh Lệ
6 tháng 3 2023 lúc 23:26

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.

Minh Lệ
7 tháng 3 2023 lúc 22:52

Program HOC24;

var i,n: integer;

S: real;

begin

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

i:=1; s:=0;

while i<=n do

begin

s:=s+i*(i+1);

i:=i+1;

end;

write('S=',S:5:2);

readln

end.


Các câu hỏi tương tự
Thư Uyên
Xem chi tiết
thanh mai
Xem chi tiết
trinhtrannamhoa
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Huyền
Xem chi tiết
Huỳnh Thị Cẩm Nhi
Xem chi tiết
Công danh
Xem chi tiết
nguyễn bảo nga
Xem chi tiết
Maiiii
Xem chi tiết