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

Toàn Lê

viết chuong trình tính tổng các dãy số sau:
S=\(1+\frac{1}{2}+\frac{1}{3}+.....+\frac{1}{100}\)

Nguyễn Lê Phước Thịnh
20 tháng 1 2020 lúc 20:46

uses crt;

var s:real;

i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do

s:=s+1/i;

writeln('tong la: ',s:4:2);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa
Nguyễn Huy Hoàng Sơn
10 tháng 2 2020 lúc 21:58

uses crt;

var s:real;

i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do

s:=s+1/i;

writeln('tong 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ự
Trần Bảo Khanh
Xem chi tiết
Cold Wind
Xem chi tiết
Nitrox vntm
Xem chi tiết
nattly
Xem chi tiết
Mạnh Dương Nguyễn
Xem chi tiết
T__T
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Tuấn Hưng
Xem chi tiết
Phan Thị Ka
Xem chi tiết