Viết chương trình Nhập vào số nguyên a và cho biết số đó là số chẵn hay số lẻ ?

2 câu trả lời

var a:integer;

Begin

     Write('hay nhap gia tri của a:') ;

     Read(a) ;

     If a mod 2 = 0 then writeln(a, 'la so chan') else writeln(a, 'la so le') ;

Readln;

End. 

var a:integer;

      begin

          writeln('nhap a:');readln(a);

          if a mod 2=0 then write(a,' la so chan')

          else write(a,' la so le');

       readln

       end.