với giá trị nào của n để 1/n <0,06 ; n nhập từ bàn phím TIN HỌC 8

0 bình luận về “với giá trị nào của n để 1/n <0,06 ; n nhập từ bàn phím TIN HỌC 8”

1. uses crt;

   var n,i: integer;

         S: real;

   Begin

           clrscr;

           write(‘Nhap n: ‘); readln(n);

           S:=S+1/n;

           if S<0.06 then write(‘n voi gia tri ‘,n,’ thi 1/’,n,’=’,S:2:2,’ < 0.06′)

           else write(‘n voi gia tri ‘,n,’ thi 1/’,n,’=’,S:2:2,’ >= 0.06′);

           readln

   End.

   Bình luận

2. program gia_tri;

   uses crt;

   var n:integer;

   begin

          clrscr;

          repeat

                 write(‘Nhap n: ‘);  readln(n);

                 if 1/i>=0.06 then writeln(‘Chua du. Nhap lai!’);

          until 1/n<0.06;

          readln;

   end.

   Bình luận