Cho S=1/1+1/2+1/3+…+1/101 Viết chương trìng Pascal sử dụng câu lệnh lặp để tính tổng S

0 bình luận về “Cho S=1/1+1/2+1/3+…+1/101 Viết chương trìng Pascal sử dụng câu lệnh lặp để tính tổng S”

1. uses crt;
   var S:real;
       i:byte;
   begin
      clrscr;
      S:=0;
      for i:=1 to 101 do s:=s+1/i;
      write(‘s = ‘,s:4:2);
      readln
   end.

   Bình luận

2. Uses crt;

   Var i: integer;

   s : real;

   Begin clrscr;

   s:=0;

   For i:=1 to 101 do

   s := s+1/i;

   Write(‘Tong S=’,s);

   readln

   end.

   Bình luận