Question

Viết chương trình nhập từ bàn phím 1 lập số nguyên n. Nếu n là số chẵn thì hiện ra màn hình "đây là số chẵn" ngược lại thì hiện ra màn hình "đây là số lẻ"

Answer 1

program Chanle;

uses crt;

var x: integer;

begin

clrscr;

readln(x)

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

readln

end.