Question

Hãy viết các câu lệnh Pascal yêu cầu người dùng nhập một số thực nằm trong khoảng từ 1 đến 10 và yêu cầu nhập lại nếu số đó không thuộc khoảng này.

Answer 1

uses crt;

var n:real;

begin

clrscr;

repeat

readln(n);

if (n<1) or (n>10) then writeln('Hay nhap lai');

until (1<=n) and (n<=10);

readln;

end.