S=1+ $\frac{1}{2}$ + $\frac{1}{3}$ + $\frac{1}{4}$+...+ $\frac{1}{N}$ Dựa vào đề bài xác định Giá trị khởi tạo của S Giá trị đầu, cuối của biến đếm i Câu lệnh sẽ được lặp

1 câu trả lời

Gửi bạn:

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.

CHÚC BẠN HỌC TỐT !