viết chương trình tính tổng s=1+1/2+1/3+-..1/20 giúp em 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/20 giúp em với ạ”

1. uses crt;
   var s : real;
   i : integer;
   begin clrscr;
   s:=0;
   for i:=1 to 20 do s:=s+1/i;
   write(‘Tong S=’, s);
   readln
   end.

   Bình luận

2. program ct;

   uses crt;

   var i,n:integer; s:real;

   begin

   clrscr;

   s:=0;

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

   writeln(‘tong la:’,s);

   readln

   end.

   Bình luận