Viết chương trình nhập số tự nhiên hợp lệ trong khoảng từ 10 đến 20. Nếu số nhập vào không hợp lệ thì yêu cầu nhập lại

Trả lời

Lời giải:

var a:int64;
begin
read(a);
if (a<10) or (a>20) then writeln('Nhap lai: ');
while(a<10) or (a>20) do read(a);
if (a>10) and (a<20) then writeln(' Thanh cong');
readln;
end.