viết chương trình nhập một số nguyên từ bàn phím,kiểm tra số nguyên đó là số chẵn hay số lẻ và thông báo kết quả ra màn hình.

2 câu trả lời

Mình trình bày chi tiết ở trong hình!

Program     KT_chan_le;

Uses           crt;

Var              a:integer;

Begin

Clrscr;

Write('Nhap so nguyen a: ');

Readln(a);

If a mod 2=0 then Write('a la so chan') else Write('a la so le');

Readln;

End.

Chúc bạn học tốt