Question

viết chương trình 1 số bất kỳ nhập từ bàn phím là số chẵn hay lẽ?

Giúp mình với

Answer 1

chẳng hạn cho 1 số bất kì bằng n nha thì sẽ làm được

var n:integer;
begin
write ( 'nhap gia tri cua n: ' );
readln (n);
if n mod 2 = 0 then write ( 'n la so chan' )
else write ( 'n la so le' );
end.

Answer 2

var n: integer;

begin

write('Nhap so: '); readln(n);

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

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

readln;

end.