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.