Viết chương trình tính các tổng sau S=1+1/2+1/3+..+1/n

0 bình luận về “Viết chương trình tính các tổng sau S=1+1/2+1/3+..+1/n”

1. Program tinh_tong;

   Uses crt;

   Var i,n: integer;

           S: real;

   Begin

   Write (‘Nhap n=’); 

   Readln (n);

   S:=0;

   For i:= 1 to n do 

   S:= S+ 1/i;

   Writeln (‘Tong S la:’, S:7:2);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

   var  s:real;

          i,n:integer;

   begin

   clrscr;

   write(‘nhap n=’); readln(n);

   s:=0;

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

   writeln(‘tong la’,s);

   readln

   end.

   Bình luận