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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Đoàn Lê Hồng Yến
Viết chương trình tính tổng dãy số sau: S=1+1/2+1/3+1/4+.....+1/100 ( dấu / là phân số )
Minh Lệ
19 tháng 3 2020 lúc 17:13
Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
19 tháng 3 2020 lúc 19:48

uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln('S=',s:4:2);
readln;
end.

Khách vãng lai đã xóa
Phan Tiến Đạt
19 tháng 3 2020 lúc 21:01

program an_danh;
uses crt;
var tong:real;
i:integer;
begin
clrscr;
tong:= 0;
for i:= 1 to 100 do
tong:= tong + 1/i;
write('Tong = ',tong:0:2);
readln
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Bảo Châu
Xem chi tiết
Trần Việt Long
Xem chi tiết
Cao Cự Quân
Xem chi tiết
Kamato Heiji
Xem chi tiết
ko có tên
Xem chi tiết
An Trần
Xem chi tiết
ngânn kim
Xem chi tiết
Ngô Ánh Loan
Xem chi tiết
Bé Heo
Xem chi tiết