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???

2 câu trả lời

program bai_giai;
uses crt;
var n:integer;
begin
    clrscr;
    write('Nhap n: ');  readln(n);
    if n>0 then write('La so nguyen duong')
        else write('Khong phai so nguyen duong');
    readln;
end.

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.