1. Viết chương trình kiểm tra số nguyên dương a là số chẵn hay số lẻ.
1 câu trả lời
uses crt;
var a:integer;
{---Chuong-trinh-con---}
procedure chan;
begin
write(a,' la so chan');
end;
{----------------------}
procedure le;
begin
write(a,' la so le');
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap so: '); readln(a);
if a mod 2=0 then chan
else le;
readln;
END.
Câu hỏi trong lớp
Xem thêm
