Viết chương trình tính tổng: S= 1+1/2+1/3+…+1/n với n là số tự nhiên được nhập từ bàn phím bằng cách sử dụng vòng lặp Repeat…until. Giúp mình với

0 bình luận về “Viết chương trình tính tổng: S= 1+1/2+1/3+…+1/n với n là số tự nhiên được nhập từ bàn phím bằng cách sử dụng vòng lặp Repeat…until. Giúp mình với”

1. var i,n: integer;

          s:real;

   begin

   write(‘Nhập n: ‘); readln(n);

   i:=1;

   repeat 

   s:=s+1/i;

   i:=i+1;

   until i=n;

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

   readln

   end.

   Bình luận

2. Program Hotboy ;

   Uses crt; 

   Var n,i,s : real;

   Begin

   Writeln(‘nhap n’);  readln(n);

   Repeat 

   S:=S+ 1/i;

   I:=i+1 ; 

   Until n=i; 

   Writeln(‘S=’,S);

   Readln

   End.

   Bình luận