Viết chương trình yêu cầu nhập một số nguyên từ bàn phím. Xuất ra màn hình các số chẵn dương nhỏ hơn hoặc bằng số vừa nhập ( giúp mình với????????)
Viết chương trình yêu cầu nhập một số nguyên từ bàn phím. Xuất ra màn hình các số chẵn dương nhỏ hơn hoặc bằng số vừa nhập ( giúp mình với????????)
đây bạn
program sochanduong;
var n,i:integer;
begin
clrscr;
write(‘Nhap n: ‘); readln(n);
if n<2 then write(‘Khong co’)
else
begin
write(‘Cac so chan duong la: ‘);
for i:=1 to n do
if i mod 2=0 then write(i,’ ‘);
end;
readln
end.