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)

Question

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)

tonhi · Answer

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.

0 bình luận về “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)”