Question

Viết chương trình chho biết số nguyên a là số chẵn hay lẻ (Có sử dụng chương trình con). Mọi người giúp mình với ạ, mình cảm ơn!

Answer 1

uses crt;

var a:integer;

{----------------------chuong-trinh-con-nhap--------------------------}

procedure nhap(x:integer);

begin

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

end;

{----------------------chuong-trinh-con-kiem-tra-chan-le--------------------}

procedure xuly(n:integer);

begin

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

end;

{-----------------------chuong-trinh-chinh------------------------}

begin

clrscr;

nhap(a);

xuly(a);

readln;

end.