Question

Viết chương trình in ra các số chẵn (lẻ ) < hoặc =n ( 1

Answer 1

uses crt;

var n,i:integer;

begin

clrscr;

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

writeln('Cac so chan la: ');

for i:=1 to n do 

 if i mod 2=0 then write(i:4);

writeln;

writeln('Cac so le la: ');

for i:=1 to n do 

 if i mod 2=1 then write(i:4);

readln;

end.