Viết chương trình nhập từ bàn phím số nguyên n.hãy cho biết n là số dương hay số âm

0 bình luận về “Viết chương trình nhập từ bàn phím số nguyên n.hãy cho biết n là số dương hay số âm”

1. Program BTT;
   Uses crt;
   Var n: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           If n>0 then Write(n,’ la so nguyen duong’)
           Else If n<0 then Write(n,’ la so nguyen am’)
           Else Write(n,’ khong phai la so nguyen am va duong’);
           Readln
   End.

   Bình luận

2. program ctpt;

   uses crt;

     var n: integer;

   begin

         clrscr;

         write(‘Nhap n = ‘); readln(n);

         if n=0 then write(n, ‘ khong la so nguyen duong hay am’) else

               if n>0 then write(n, ‘ la so nguyen duong’) else

                         write(n, ‘ la so nguyen am’);

         readln

   end.

   Bình luận