Bài 7. Câu lênh lặp

Lê Minh Sang

tính S= 1+1/2+1/3+...1/n sao cho 1/n <= E với E là 1 số dương rất nhỏ đc nhập từ bàn phím vd : E=0,003

Đăng Nguyễn gamer
21 tháng 5 2020 lúc 21:06

Uses crt;

Var s,i,E:real;

Begin

Clrscr;

Write('Nhap gia tri cua E: ');read(E);

s:=0;

i:=1;

Repeat

Inc(s,1/i);

Inc(i);

Until (1/i<E);

Write('Gia tri cua S la: ',s);

Readln;

End.

Bình luận (0)

Các câu hỏi tương tự
Lâm Khả Doanh
Xem chi tiết
nguyễn bảo nga
Xem chi tiết
Thủy Tiên Tống Thị
Xem chi tiết
Nguyenthanh
Xem chi tiết
Nguyễn văn Mạnh
Xem chi tiết
Phượng Hồ
Xem chi tiết
Lan Phương
Xem chi tiết
hoangvinh
Xem chi tiết
khoa đăng
Xem chi tiết