Viết chương trình tính tổng: S= $\frac{1}{1}$ + $\frac{1}{2}$ + $\frac{1}{3}$ + $\frac{1}{4}$ + $\frac{1}{5}$ + …+ $\frac{1}{12}$ Tin học nha nhờ

0 bình luận về “Viết chương trình tính tổng: S= $\frac{1}{1}$ + $\frac{1}{2}$ + $\frac{1}{3}$ + $\frac{1}{4}$ + $\frac{1}{5}$ + …+ $\frac{1}{12}$ Tin học nha nhờ”

1. Theo kiểu for…do:
   Uses Crt;
   Var S:real;  i:integer;
   Begin
   Clrscr;
   S:=0;
   For i:= 1 to 12 do S:=S+1/i;
   Write(‘Vay tong S do =’,S);
   Readln
   End.
   *Nhớ tick và chọn làm ctrloi hay nhất giúp mình vói nhé!Đa tạ trước ạ: D

   Bình luận

2. var s: real;

          i: byte;

   Begin

        S:=0;

        For i:=1 to 12 do

              S:= S + 1/i;

        Write(‘s = ‘, s);

        Readln

   End.

   Bình luận