ngtraidat

NHẬP N TÍNH TỔNG S= 1/2+1/3+1/4+....+1/N BẰNG CÂU LỆNH WHILE..DO

Minh Lệ
12 tháng 3 2023 lúc 23:27

Program HOC24;

var i,n: integer;

s: real;

begin

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

i:=2; s:=0;

while i<=n do

begin

s:=s+1/i;

i:=i+1;

end;

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

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Thảo My Lê Phương
Xem chi tiết
Trường Nguyễn
Xem chi tiết
Khánh Hoàng
Xem chi tiết
Phương Linh Pham Thị
Xem chi tiết
Le Van Dai
Xem chi tiết
Cao phong Ngô hữu
Xem chi tiết
Đức Tài Hoàng
Xem chi tiết
mẫn cuti
Xem chi tiết
Khánh Hoàng
Xem chi tiết