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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyen Hung

VIẾT CT pascal tính tổng S=1+1/3+1/5+ ...+ 1/2+n với n la so nguyen duong nhập từ bàn phím

Leejung Kim
15 tháng 2 2018 lúc 14:20

Var i,n:integer;

S:real;

Begin

Write (' nhap n :');

Readln(n);

S:=1;

For i:= 1 to n do S:= S+1/i;

Writeln (' tong S:',S);

Readln;

end.


Các câu hỏi tương tự
Trần Việt Long
Xem chi tiết
Cao Cự Quân
Xem chi tiết
Lê Xuân Hoa
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
BAO LE DANH
Xem chi tiết
Nguyễn Trần Thiên Bảo
Xem chi tiết