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
Nguyễn Phương Du

Viết chương trình tính 1+1/2+1/3+1/t với t là một số nguyên bất kì được nhập vào từ bàn phím bằng cách sử dụng vòng lặp for...do hoặc vòng lặp while...do

Huỳnh Minh Thuận
27 tháng 4 2017 lúc 21:41

Sử dụng For...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0;

For t:=1 to n do s:=s+1/t;

writeln('Tổng s là',s);

readln

end.

Sử dụng While...do

Program tinhtong;

var n,t : integer;

s : real;

begin

write('Nhập số n');readln(n);

s:=0; t:=1;

While t <= n do

begin t:=t+1;

s:=s+1/t end ;

writeln('Tổng s là',s);

readln

end.


Các câu hỏi tương tự
Chuu
Xem chi tiết
trinhtrannamhoa
Xem chi tiết
Minh Đông
Xem chi tiết
Huyền
Xem chi tiết
Thư Uyên
Xem chi tiết
huy hoàng
Xem chi tiết
Công danh
Xem chi tiết
thanh mai
Xem chi tiết
Huỳnh Hân
Xem chi tiết