giúp vs viết chương trình tính S=1/1+1/2+1/3+-.+1/n trong pascal nha mai nọp rồi giúp vs

0 bình luận về “giúp vs viết chương trình tính S=1/1+1/2+1/3+-.+1/n trong pascal nha mai nọp rồi giúp vs”

1. program oken;
   uses crt;
   var i,n:integer;
       s:real;
   begin
           clrscr;
           write(‘nhap so n: ‘); readln(n);
           s:=0;
           for i:=1 to n do
                   s:=s+(1/i);
           writeln(‘S=’,s:0:3);
           readln;
   end.

   Bình luận

2. uses crt;
   var S:real;
       n,i:integer;
   begin
      clrscr;
      S:=1;
      write(‘Nhap n: ‘); readln(n);
      for i:=2 to n do S:=S+1/i;
      write(‘S=’,S:4:2);
      readln
   end.

   Bình luận