Viết chương trình nhập vào số nguyên khác 0. Cho biết số vừa nhập là âm hay dương

0 bình luận về “Viết chương trình nhập vào số nguyên khác 0. Cho biết số vừa nhập là âm hay dương”

1. Program BTH;

   uses Crt;

   var a:longint;

   Begin

   clrscr;

   Write(‘Nhap so can kiem tra: ‘);readln(a);

   If a>0 then writeln(‘So ‘,a,’ la so nguyen duong’) else writeln(‘So ‘,a,’ la so nguyen am’);

   readln;

   End.

   Bình luận

2. program amduong;

   uses crt;

   var n: integer;

   begin

   clrscr;

   write(‘Nhap so nguyen :’); readln(n);

   if n>0 then writeln(‘n la so nguyen duong’);

   if n<0 then writeln(‘n la so nguyen  am’);

   if n=0 then writeln(‘n khong phai la so nguyen duong hay nguyen am’);

   readln

   end.

   Bình luận