Lập trình đơn giản

Đinh Thuận

Viết chương trình thực hiện lệnh for...do hoặc lệnh while...do để tính tổng:

S=\(1+\dfrac{1}{2}+\dfrac{1}{3}+\dfrac{1}{4}+...+\dfrac{1}{n}\)

Với n là số nhập từ bàn phím

Nguyen Thi Thanh Thao
1 tháng 3 2018 lúc 22:15

Var i , n : integer;

S: real;

Begin

write (' n ='); read (n);

S:= 0

For i:= 1 to n do S:= S+ 1/i;

Write (S);

Readln;

End.

Bình luận (0)
Trương Quang Dũng
3 tháng 4 2018 lúc 20:23

program bai1;

var s,n,i:longint;

begin

write('N= ');readln(n);

s:=0;

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

write('s= ',s);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
Đinh Thuận
Xem chi tiết
Tuyết Lê
Xem chi tiết
Bảo Châu
Xem chi tiết
Trần Huyền
Xem chi tiết
Dấu tên
Xem chi tiết
Xem chi tiết
Tùng Dương
Xem chi tiết
Trần Việt Long
Xem chi tiết
Cao Cự Quân
Xem chi tiết