Bài 8. Lặp với số lần chưa biết trước

Trang Pam

em hãy sử dụng câu lệnh lặp while...do viết chương trình in ra màn hình các số tự nhiên từ 1 đến n, với n được nhập vào từ bàn phím?

input:n=7

output: 1 2 3 4 5 6 7

Nguyễn Lê Phước Thịnh
26 tháng 4 2020 lúc 11:16

uses crt;

var i,n:integer;

begin

clrscr;

write('nhap n='); readln(n);

i:=0;

while i<=n do

begin

i:=i+1;

write(i:4);

end;

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
phương thuý nguyễn thị
Xem chi tiết
Lê Tâm Anh
Xem chi tiết
Lê Nguyễn Thanh Quân
Xem chi tiết
Thu Anh
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Huỳnh Hoài Nguyên
Xem chi tiết
Thu Tuyền
Xem chi tiết
Thanh huyền
Xem chi tiết
Ngọc Tú
Xem chi tiết