Viết phương trình tổng sau: S=1+1/2+1/3+…1/105 (Lập trình ra nha mn giúp em vs mai kt 15p r)

0 bình luận về “Viết phương trình tổng sau: S=1+1/2+1/3+…1/105 (Lập trình ra nha mn giúp em vs mai kt 15p r)”

1. Program BTH;
   uses crt;
   var i,n:longint;
   s:real;
   begin
           clrscr;
           For i:=1 to 105 do
                   s:=s+1/i;
           writeln(‘Tong day so tren la: ‘,s:4:2);
           readln;
   end.

   Bình luận

2. program oken;

   uses crt;

   var i: byte;

   s: real;

   begin

   clrscr;

   s:=0;

   for i:=1 to 105 do s:=s+(1/i);

   writeln(‘S=’,s:0:3);

   readln;

   end.

   Bình luận