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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tú Nguyễn

viết chương trình nhập vào số e tính tổng ngịch đảo của các số từ 1 đến n ( dừng khi 1/n<e)

Trương Quang Dũng
9 tháng 1 2018 lúc 20:42

program bai1;

var e,s,i:longint;

begin

write('E= ');readln(e);

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

s:=0;

while 1/n <e do

begin

for i:=1 to n do

s:=s+1/i;

end;

writeln('Tong la ',s);

readln

end.


Các câu hỏi tương tự
đức minh
Xem chi tiết
nguyễn vũ thành công
Xem chi tiết
Kamato Heiji
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết
ngânn kim
Xem chi tiết
Nguyễn Ally
Xem chi tiết
phamthiminhanh
Xem chi tiết