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


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