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

Huyền Minh Lam Nguyệt

1 viet chuong trinh in ra man hinh bang cuu chuong 2

2 viet chuong trinh tinh tong S=1/1+1/2+.......+1/n voi gia tri n nhap vao tu ban phim

Huyền Minh Lam Nguyệt
24 tháng 4 2018 lúc 22:36

lam on giup minh voi thu nam minh kiem tra roigianroibucminhoho

Bình luận (0)
Đào Anh
24 tháng 4 2018 lúc 22:49

bảng cửu chương 2 hả bạn ?

Bình luận (0)
Hà Trân Khánh Linh
25 tháng 4 2018 lúc 9:31

Sử dụng For...do

Chương trình tinhtong;

trong đó n, t: số nguyên;

s: thật;

bắt đầu

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

s: = 0;

Đối với t: = 1 đến n làm s: = s + 1 / t;

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

readln

kết thúc.

Sử dụng While...do

Chương trình tinhtong;

trong đó n, t: số nguyên;

s: thật;

bắt đầu

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

s: = 0; t: = 1;

Câu 2:Trong khi t <= n làm

bắt đầu t: = t + 1;

s: = s + 1 / t kết thúc;

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

readln

kết thúc.

Bình luận (0)
Thanh Thủy
25 tháng 4 2018 lúc 19:15

2)

Program tinh_tong; Uses Crt; Var i, n: integer; S: Real; Begin Clrscr; Write (' nhap so tu nhien n: '); Readln (n); S:=0; for i:=1 to n do S :S+1/i ; Write (' Tong S la: ', S: 8: 2 ); Readln; End.
Bình luận (0)

Các câu hỏi tương tự
minh nguyen cong
Xem chi tiết
Vy Tuong
Xem chi tiết
Thiên Bình
Xem chi tiết
Nguyễn Xạ Điêu
Xem chi tiết
Nguyễn Quỳnh
Xem chi tiết
Chu Nam
Xem chi tiết
Diệu Huyền
Xem chi tiết
duong hoang ngan
Xem chi tiết
Võ Châu Minh Ngọc
Xem chi tiết