Question

viết chương trình kiểm tra số nguyên dương x nhập từ bàn phím là số chẵn hay số lẻ

Answer 1

uses crt;

var x:integer;

begin

clrscr;

write('nhap x='); readln(x);

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

readln

end.

Answer 2

function KT_chan_le(k:integer):boolean;

begin

if k mod 2=1 then KT_chan_le:=true

else KT_chan_le:=false;

end;

var n:integer;

begin

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

if KT_chan_le(n) then writeln(n,' la so le ')

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

readln;

end.

Answer 3

uses crt;

var x:integer;

begin

clrscr;

write('nhap x='); readln(x);

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

readln

end.

Answer 4

program chan_le;

uses crt;

var x:longint;

begin

clrscr;

write('nhap x=');readln(x);

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

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

readln

end.