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.