Question

VCT nhập N số tự nhiên đầu tiên in ra chẵn lẻ

Answer 1

program ChenLe;

var

     n, i, chan, le: integer;

begin

     chan := 0;

     le := 0;

     writeln('Nhap so nguyen duong N: ');

     readln(n);

     for i := 1 to n do

     begin

          if (i mod 2 = 0) then

          begin

               writeln(i, ' la so chan');

               chan := chan + 1;

          end

          else

          begin

               writeln(i, ' la so le');

               le := le + 1;

          end;

     end;

     writeln('Co ', chan, ' so chan va ', le, ' so le trong ', n, ' so dau tien');

     readln;

end.