lập trình tính tổng dùng lệnh lặp While…Do trong đó có n là số tự nhiên được nhập từ bàn phím A=1+1/2+1/3+…+1/n(n thuộc Z) giúp mik đúng nha m.n

0 bình luận về “lập trình tính tổng dùng lệnh lặp While…Do trong đó có n là số tự nhiên được nhập từ bàn phím A=1+1/2+1/3+…+1/n(n thuộc Z) giúp mik đúng nha m.n”

1. Program FNG;
   Uses crt;
   Var s: extended;
       n,i: qword;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; i:=1;
           While i<=n do
           Begin
                   s:=s+1/i;
                   inc(i);
           End;

           Write(s:0:2);
           Readln
   End.

   Bình luận

2. program oken;
   uses crt;
   var n,i:longint;
       a: real;
   begin
           clrscr;
           write(‘nhap so N: ‘); readln(n);
           a:=1; i:=0;
           while i<=n do
                   begin
                           i:=i+1;
                           a:=a+(1/i);
                   end;
           writeln(‘Tong A=’,a:0:3);
           readln;
   end.

   Bình luận