Question

Answer 1

program bai_toan;

var

      n, chuc, donvi: integer;

begin

      write('Nhap so nguyen duong 2 chu so n: ');

      readln(n);

      chuc := n div 10;

      donvi := n mod 10;

      if (chuc mod 2 = 0) and (donvi mod 2 = 0) then

            writeln('Khong co chu so le')

      else

      begin

            if chuc mod 2 <> 0 then

                  writeln('Chu so le cua n o hang chuc la: ', chuc);

            if donvi mod 2 <> 0 then

                  writeln('Chu so le cua n o hang don vi la: ', donvi);

      end;

      readln;

end.