Viết chương trình nhập vào các số âm thoát ra khi nhập số không âm.

0 bình luận về “Viết chương trình nhập vào các số âm thoát ra khi nhập số không âm.”

1. uses crt;

   var n:integer;

   begin

          clrscr;

          repeat

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

          until n>=0;

   readln;

   end.

   Bình luận

2. program khong_am;

   uses crt;

   var n:integer;

   begin

          clrscr;

          repeat

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

          until n>=0;

          readln;

   end.

   Bình luận