Viết chương trình tính tổng: S = 1/1+1/2+1/3+…+1/n với giá trị n nhập vào từ bàn phím?

0 bình luận về “Viết chương trình tính tổng: S = 1/1+1/2+1/3+…+1/n với giá trị n nhập vào từ bàn phím?”

1. var i,n:longint;

        s:real;

   begin

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

   for i:=1 to n do

   s:=s+1/i;

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

   readln;

   end.

   Bình luận

2. uses crt;
   var n,i:longint;s:extended;
   begin
      clrscr;
      write(‘Nhap n: ‘); read(n);
      for i:=1 to n do s:=s+1/i;
      writeln(‘S = ‘,s:0:2);
      readln
   end.

   Bình luận