Bài 4: Bài toán và thuật toán

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
trần tuyết đỏ

Tính S(n)=1+1/2+1/3+...+1/n

Nguyễn Lê Phước Thịnh
9 tháng 12 2019 lúc 22:51

uses crt;

var s:real;

i,n:integer;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

s:=s+1/i;

writeln('S(n)=',s:4:2);

readln;

end.

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

Các câu hỏi tương tự
Quỳnh Thúy
Xem chi tiết
Lê Phương Nhã Uyên
Xem chi tiết
trần tuyết đỏ
Xem chi tiết
Hồng Phúc
Xem chi tiết
Trần Thu Hà
Xem chi tiết
Nhi Đặng
Xem chi tiết
39_Lê Thành Vinh
Xem chi tiết
Clothilde Beauvais
Xem chi tiết
Mon Chaton
Xem chi tiết