Nhập vào 1 số nguyên dương n từ bàn phim in ra màn hình thông báo có bao nhiêu số chẵn từ 1 đến n trên 1 hàng ( dùng câu lệnh While...do)
1 câu trả lời
uses crt;
var i,n,d:longint;
begin
clrscr;
write('nhap n:'); read(n);
i:=1;
d:=0; // (nếu yêu cầu tính số lượng)
while i<=n do
begin
if i mod 2=0 the inc(d); // (nếu hỏi số lượng)
if i mod 2=0 then write(i,' '); //(nếu yêu cầu in ra các số đó. vì đề ko rõ nên mình làm 2 cái);
inc(i);
end;
write(d); // (nếu hỏi số lượng);
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
