Question

Viết chương trình nhập vào một số dương bất kì in ra màn hình một số chẵn hay lẻ?

Answer 1

Program bai1;

uses crt;

var n: integer;

begin

clrscr;

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

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

else writeln('la so le ');

readln;

end.

Answer 2

Program chanle;
program chanle;

Uses crt;
Var x: integer;
Begin
clrscr;
write (‘Nhap x : ’); readln (x);
if N mod 2 = 0 then writeln (x, ‘ la so chan’)
else writeln (x, ‘ la so le’);

readln;
End.