Lập chương trình tính tổng S=1/1+1/2+1/3+.....+1/n vs n được nhập vào
1 câu trả lời
program hoidap74170;
uses crt;
var n, S, i: integer;
begin
clrscr;
write('Nhap so n'); readln(n);
S:=0;
for i:=1 to n do S:=S+1/n;
write('Tong S:',S);
readln
end.
Bạn cho chạy thử, báo lỗi thì cmt để mình xem lại
