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

Tú Nguyễn

Viết chương trình nhập vào giá trị e<1 in ra màn hình số n lớn nhất sao cho 1/n lớn hơn c. Tính tổng nghịch đảo của số <=n trong pascal

Trương Quang Dũng
11 tháng 1 2019 lúc 21:34

program bai1;

var i,c:longint;

s:real;

begin

readln(c);

i:=1;

while 1/i<c then

begin

s:=s+1/i;

i:=i+1;

end;

writeln(i);

wirte(s);

readln

end.

Bình luận (0)

Các câu hỏi tương tự
ytkc
Xem chi tiết
hoho209
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
Hưng Quốc
Xem chi tiết
Quỳnh
Xem chi tiết
phamthiminhanh
Xem chi tiết
Tú Nguyễn
Xem chi tiết
đức minh
Xem chi tiết
nguyễn vũ thành công
Xem chi tiết