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

nattly

Viết chương trình tính tổng nghịch đảo các số từ 1 đến n , với n là số tự nhiên nhập từ bàn phím :

S=1+\(\frac{1}{2}\)+\(\frac{1}{3}\)+...+\(\frac{1}{n}\)

Nguyễn Lê Phước Thịnh
19 tháng 12 2019 lúc 17:49

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Huy Tú
19 tháng 12 2019 lúc 18:09

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

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

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('tong nghich dao cac so tu 1 toi ',n,' la: ',s:4:2);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Lâm Khả Doanh
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
MinTae
Xem chi tiết
Nguyenthanh
Xem chi tiết
Phan Thị Ka
Xem chi tiết
khoa đăng
Xem chi tiết
nguyễn bảo nga
Xem chi tiết
Maiiii
Xem chi tiết
trinhtrannamhoa
Xem chi tiết