Viết chương trình nhập vào 1 số nguyên n in ra màn hình thông báo có bào nhiêu số chắn từ 1 đến n, in ra các số chắn đó trên 1 hàng ( dùng câu lệnh while..do).Mình hứa vote 5 sao cho ng trả lời nhanh nhất

• dichlenhietba1511

var

i,n,d:integer;

begin

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

d:=0;

write('cac so chan la');

for i:=1 to n do

if i mod 2 = 0 then

begin

writeln(i);

d:=d+1;

end;

writeln('co ',d,' so chan tu 1 den ',n);

readln

end.

var i,n,d: integer;

begin

while('Nhap n='); readln(n);

d:=0;

for i:=1 to n do if i mod 2=0 then d:=d+1;

while('Co ',d,' so chan tu 1 den n');

while('Cac so chan do la : ');

for i:=1 to n do if i mod 2=0 then write(i,' ');

readln

end.