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.