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 chẵn hay không???
2 câu trả lời
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.
program bai_giai;
uses crt;
var N:longint;
begin
clrscr;
write('Nhap N '); readln(n);
if N>0 then write('La so nguyen chan')
else write('Khong phai so nguyen chan');
readln;
end.