viết chương trình tính tổng S= 1 + 1/2 +1/3+.....+1/n ( trong đó n được nhập vào từ bàn phím ) Mấy bạn kiểu copy thì ra chỗ khác :) tự làm k thì ăn báo cáo

Nhatbody2000

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 19 xem

1 trả lời

Thích Trả lời

thanghoakbhb

Tính bằng for...do

program tong_S;

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n: '); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

write('S= ',s:0:2);

readln;

end.

Tính bằng while...do

program tong_S;

uses crt;

var n,i:integer;

s:real;

begin

clrscr;

write('Nhap n: '); readln(n);

s:=0; i:=1;

while i<=n do

begin

s:=s+1/i;

i:=i+1;

end;

write('S= ',s:0:2);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

cocole0409

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

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Hãy xác định câu đặc biệt của đoạn văn trên em cản ơn

Phân tích tính chất của cuộc Cách mạng tư sản Pháp cuối thế kỷ XVIII (Các bạn làm chi tiết giúp mình nhé, mình cảm ơn ạ)

Điền từ chứa tiếng có vần iêt,im hoặc iêm. Nhà nghèo, nên mẹ tôi hết sức ........ Quần áo của anh em tôi đều tự tay mẹ cắt may, rất khéo. Đời mẹ không ......... đã dùng hết bao nhiêu cây ......... cuộn chỉ. Sau này mẹ bị bệnh............ có lẽ một phần cũng vì đã cặm cụi vá may trong suốt mấy mươi năm.

phương trình x mũ 2-4=0 tương đương với phương trình nào

Lan is the girl. We totally believe in her

có bao nhiêu số có hai chữ số bé hơn 99

Nhà em có những vật nuôi nào.Nêu vai trò của nó đối với đời sống con người???LẤY VÍ DỤ LÀ CHÓ,GÀ,MÈO NHA MỌI NGƯỜI(TÁC HẠI VÀ LỢI ÍCH LUÔN NHA).THANKS NHIỀU.......

Bản thân cần phải làm gì đối với công cuộc xây dựng đất nước hiện nay?

Giải hộ mình với Mình cần luôn Mai thi ạ

Em hãy cho biết khu vực Bắc Mỹ đã dựa vào những điều kiện gì để có một nền kinh tế phát triển nhất thế giới như hiện nay? Giúp mình với,mai mình thi r

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến