hộ với viết chương trình tính h = 1+1\3+1\5+-+1\n để h lớn nhất = 2,5

0 bình luận về “hộ với viết chương trình tính h = 1+1\3+1\5+-+1\n để h lớn nhất = 2,5”

1. program oken;

   uses crt;

   var h:real;

         i,n:longint;

   begin

   clrscr;

   write(‘nhap n’);

   h:=1; i:=0;

   while h<=(5/2) do

      begin

          i:=i+1;

          h:=h+(i/(i+2));

      end;

   writeln(‘h=’,h);

   readln;

   end.

   Bình luận

2. Program Hotboy ;

   Uses crt;

   Var s,i : real;

   Begin

   Writeln(‘moi ban nhap n’); readln(n);

   Repeat 

   H:=0; 

   H=H+1/i :

   I:=i+2 ; 

   Writeln(‘tong la’,h); 

   Until h>=2,5; 

   Readln

   End.

   Bình luận