Viết chương trình để In ra màn hình các số từ 1 tới n bằng câu lệnh while do.Pascal
2 câu trả lời
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:3); end;
readln
end.
var n,i: byte;
begin
write('Nhap n: '); readln(n);
i := 1;
while i<=n do
begin
write(i,' ');
inc(i);
end;
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
