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

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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

Đào Anh
24 tháng 4 2018 lúc 22:49

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

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.

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.

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