Viết chương trình Nhập vào một số nguyên, kiểm tra xem số vừa nhập là số chẵn hay số lẻ.

2 câu trả lời

program ntn;

uses crt;

var a:longint;

begin

clrscr;

write('a=');readln(a);

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

readln

end.

Đáp án:

Program chan_le;

uses crt;

var a: integer;

begin

clrscr; write('nhap vao so a ='); readln(a);

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

else

write('a la so le ');

readln;

end.

 _ _ _ _ _ _ _ _ _ _ _ _  _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _  _ _ _ _ _ _ _ _ _ _ 

   `***` `Híu`