T=1+1 phần 2+1 phần 3+…+1 phần 100 viết PT có dạng a) For…do b) While…do

0 bình luận về “T=1+1 phần 2+1 phần 3+…+1 phần 100 viết PT có dạng a) For…do b) While…do”

1. a/

   Program BTH;
   uses crt;
   var s:real;
   i:byte;
   Begin
           clrscr;
           For i:=1 to 100 do
           Begin
                   s:=s+1/i;
           end;
           writeln(‘Tong day so tren la: ‘,s:4:2);
           readln;
   end.

   b/

   Program BTH;
   uses crt;
   var s:real;
   i,n:byte;
   Begin
           clrscr;
           n:=1;
           While n<100 do
           Begin
                   s:=s+1/n;
                   n:=n+1;
           end;
           writeln(‘Tong day so tren la: ‘,s:4:2);
           readln;
   end.

   Bình luận