Bài toán 2. Tính và đưa kết quả ra màn hình tổng S=(1/a+1)+(1a+2+)…+(1a+N) Hãy lập trình tính tổng S cho đến khi 1a+N<0,0001 trong đó số N là số nguyê

0 bình luận về “Bài toán 2. Tính và đưa kết quả ra màn hình tổng S=(1/a+1)+(1a+2+)…+(1a+N) Hãy lập trình tính tổng S cho đến khi 1a+N<0,0001 trong đó số N là số nguyê”

1. uses crt;

   var a,i,n: integer;

              s: real;

   begin

   clrscr;

   write (‘nhap n: ‘);   readln (n);

   repeat

   i:=+1;

   a:=a+1;

   s:=s+(1/(a+i));

   until i=n;

   writeln (‘tong la: ‘,s:1:3);

   readln;

   end.

   Bình luận

2. uses crt;
   var i,a:longint; s:real;
   begin
   clrscr;
      write(‘a=’);readln(a);
      repeat
         inc(i);
         s:=s+1/(a+i);
      until 1/(a+i)<0.0001;
      writeln(‘N= ‘,i);
   readln
   end.

   Bình luận