hãy viết các câu lệnh pascal yêu cầu người sử dụng nhập một số thực nằm trong khoản từ 1 đến 10 và yêu cầu nhập lại nếu số không thỏa mãn. (Sử dụng lệnh lặp While…do)
hãy viết các câu lệnh pascal yêu cầu người sử dụng nhập một số thực nằm trong khoản từ 1 đến 10 và yêu cầu nhập lại nếu số không thỏa mãn. (Sử dụng lệnh lặp While…do)
Program So_thuc;
Uses Crt;
Var x : integer;
Begin
Clrscr;
Write (‘Nhap so thuc n ‘); Read (n);
While (n<1) and (n>10) do
Begin
Write (‘So moi nhap khong thoa man dieu kien, nhap lai n ‘); Read (n);
End;
Write (‘So vua nhap da thoa man dieu kien’);
End.
program nhapso;
uses crt;
var x:real;
begin
clrscr;
repeat
write(‘Nhap so: ‘); readln(x);
if (x<1) or (x>10) then writeln(‘So nay phai tu 1 den 10’);
until (x>=1) and (x<=10);
readln;
end.