Sử dụng câu lệnh while, do, viết chương trình kiểm tra số nguyên N được nhập vào từ bàn phím là số nguyên dương hay không???
Sử dụng câu lệnh while, do, viết chương trình kiểm tra số nguyên N được nhập vào từ bàn phím là số nguyên dương hay không???
Program chan _le;
Var N: interger;
Begin
Writeln(‘Nhap so nguyen N’);
Readln(N);
If (N mod 2=0) Then write(‘N la so chan )
else
Write (N la so le);
Readln;
End.