viết chương trình tính tổng S= 1/1+1/2+1/3+1/4+1/5+…+1/n

0 bình luận về “viết chương trình tính tổng S= 1/1+1/2+1/3+1/4+1/5+…+1/n”

1. var s: real;

          n, i: byte;

   Begin

       Write(‘n = ‘); readln(n);

       S:=0;

       For i:=1 to n do s:= s + 1/i;

       Write(‘s = ‘, s);

       Readln

   End.

   Bình luận

2. program tinh_tong;

   uses crt;

   var n,i:integer;

         s:real;

   begin

          clrscr;

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

          s:=0;

          for i:=1 to n do

                 s:=s+1/i;

          write(‘S= ‘,s:0:3);

          readln;

   end.

   Bình luận