Hạ Cửu Uyên
Hỏi từ APP VIETJACK
Viết chương trình tính tổng S=1+1/2+1/3+1/4+1/5+...+1/n>1-a*2. Với a được nhập từ bàn phím. Khi đó n bằng bao nhiêu đưa kết quả ra màn hình
Quảng cáo
1 câu trả lời 1323
2 năm trước
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln('Nhap so thu n: '); readln(n);
S:=0; i:=1;
while i<=n do begin
S:=S+1/i; i:=i+1;
end;
writeln('Tong la: ',S:2:3);
readln
end
Quảng cáo
Câu hỏi hot cùng chủ đề
Gửi báo cáo thành công!