Viết chương trình nhập vào số nguyên lớn hơn 50. Nếu người dùng nhập số nhỏ hơn hoặc bằng 50 thì yêu cầu nhập lại.

2 câu trả lời

uses crt;

var i,n:integer;

begin

      clrscr;

      Repeat

           write('Nhap so n>50: ');

           readln(n);

      until n>50;

end.

        uses Crt;

        var i,n:integer;

       start

      Clrscr;

      repeat

       write('Nhap so n>50 ');

       readln(n);

      until n>50;

      end.