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

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

Viết chương trình nhập n từ bàn phím (1<=n<=2018)

Tính tổng S=1+1/(1+2)+1(2+3)+..+1/((n-1)+n)+2018

Minh Lệ
30 tháng 4 2019 lúc 8:17

Lời giải :

program hotrotinhoc;

var i,n : integer;

T,S : real ;

begin

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

while (n>1) or (n>2018) do

begin

write('n chua thoa man yeu cau nhap lai n='); readln(n);

end;

for i:= 1 to n do

S:=S+1/((i-1)+i) ;

T:=S+2018;

write('S=',S);

readln

end.


Các câu hỏi tương tự
Lâm Khả Doanh
Xem chi tiết
Nguyenthanh
Xem chi tiết
Chuu
Xem chi tiết
MinTae
Xem chi tiết
nguyễn bảo nga
Xem chi tiết
Hoàng Đình Đức Duy
Xem chi tiết
Nguyễn văn Mạnh
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
khoa đăng
Xem chi tiết