Viết chương trình tính tổng S= 1+1/2+1/3+-.+1/20

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

1. uses crt;

   var S:real; i:integer;

   begin clrscr;

   S:=0;

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

   writeln(‘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