nhập một số nguyên a từ bàn phím kỉm tra và in ra màng hình dây là số chẳn hay số lẽ

2 câu trả lời

program bai_giai;

uses crt;

var a:longint;

begin

clrscr;

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

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

readln;

end.

program b1;

uses crt;

var a:integer;

begin

write('Nhap so: ');read(a);

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

readln;

end.

Mong bạn vote hay nhất!