viết chương trình nhập vào số nguyên a.Kiểm tra xem số đó là số chẵn hay lẽ.

2 câu trả lời

program chan_le;

uses crt;

var a:integer;

begin

    clrscr;

    writeln('Nhap so a:');

    readln(a);

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

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

    readln

end.

Chúc bạn học tốt nha^.^

    

Uses crt;

Var x:integer;

 Begin

         Write('Nhap vao mot so nguyen : ');

         Readln(x);

        If x MOD 2=0 Then

       Writeln('So vua nhap vao la so chan')

       Else

       Writeln('So vua nhap vao la so le');

       Readln;

End.