Question

Viết chương trình nhập vào một số. Kiểm tra tính chẵn lẻ của số đó có sử dụng chương trình con

Answer 1

uses crt;

var n:integer;

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

procedure nhap(a:integer);

begin

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

end;

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

procedure ktra(x:integer);

begin

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

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

end;

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

begin

clrscr;

nhap(n);

ktra(n);

readln;

end.