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. program ct;

   uses crt;

   var n:integer;

         x:real;

   const saiso=0.005;

   begin

   clrscr;

     x:=1;  n:=1;

        while x>=saiso do

     begin

         x:=1/n;

         n:=n+1;

     end;

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

   readln

   end.

   Bình luận

2. 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