Viết chương trình; Tìm n sao cho 1/n<0,005?

0 bình luận về “Viết chương trình; Tìm n sao cho 1/n<0,005?”

1. uses crt;
   var n : real;
   i,s : integer;
   begin clrscr;
   write(‘Nhap gioi han cua so trong khoang chua n:’); readln(s);
   for i:=1 to s do if i>1/0.005 then writeln(‘So n thoa man la :’, i,”);
   readln
   end.

   Bình luận

2. program ct;

   uses crt;

   var n:integer;

         x:real;

   const sai_so=0.005;

   begin

   clrscr;

     x:=1;  n:=1;

        while x>=sai_so do

     begin

         x:=1/n;

         n:=n+1;

     end;

   writeln(‘so n be nhat de 1/n<‘, sai_so:5:4 ,’ la ‘,n-1);

   readln

   end.

   Bình luận