Viết chương trình tổng : S= 1+1/2 + 1/3 +...+1/n Với n là số nguyên nhập từ bàn phím (2<=n<1000) Dữ liệu vào : số nguyên dương n Dữ liệu ra : một số thực duy nhất là tổng tìm được ( làm tròn đến 3 số thập phân ) Lưu ý : không sử dụng lên write() để hướng dẫn nhập dữ liệu ( chỉ viết lệnh nhập dữ liệu đề cho ) Kết quả in đúng yêu cầu của đề , không in lời giảiv VD : Input: 3 Output: 1.833
2 câu trả lời
uses crt;
var i, n : integer; s : real;
begin
clrscr;
write('nhap so n : ');readln(n);
s := 1;
for i := 2 to n do s := s + 1/i;
writeln('s = ', s:2:3);
readln
end.
Program baitap;
Uses crt;
Var n,i:integer;
S:real;
Begin
Clrscr;
Readln(n);
S:=0;
For i:=1 to n do S:=S+1/n;
Writeln(S:3);
Readln
End.
