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

0 bình luận về “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. 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

   Bình luận