Viết chương trình sử dụng lệnh lặp phù hợp sao cho thỏa điều kiện 10
Viết chương trình sử dụng lệnh lặp phù hợp sao cho thỏa điều kiện 10
By Arya
By Arya
Chương trình sử dụng lệnh lặp phù hợp sao cho thỏa điều kiện `10<x<20` là :
program nhapso;
uses crt;
var x:integer;
begin
clrscr;
repeat
write(‘Nhap x: ‘); readln(x);
until (x>10) and (x<20);
readln;
end.
Dùng repeat until
program nhapso;
uses crt;
var x:integer;
begin
clrscr;
repeat
write(‘Nhap x: ‘); readln(x);
until (x>10) and (x<20);
readln;
end.
Dùng while…do
program nhapso;
uses crt;
var x:integer;
begin
clrscr;
x:=0;
while (x<=10) or (x>=20) do
begin
write(‘Nhap so: ‘); readln(x);
end;
readln;
end.