viết 1 chương trình viết 1 số bất kì cho đến khi số đó nhỏ hơn 0 thì dừng 21/07/2021 Bởi Adeline viết 1 chương trình viết 1 số bất kì cho đến khi số đó nhỏ hơn 0 thì dừng
program nho_hon0; uses crt; var n:integer; begin clrscr; repeat write(‘Nhap n: ‘); readln(n); until n<0; readln; end. Bình luận
đây bạn
đã test
program nho_hon0;
uses crt;
var n:integer;
begin
clrscr;
repeat
write(‘Nhap n: ‘); readln(n);
until n<0;
readln;
end.