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.
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.
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.
#nếu sai bn thông cảm nha!