Kiểm tra a >0 hay ko, nếu lớn hơn thì in ra a và hạ xuống 1 đơn vị

0 bình luận về “Kiểm tra a >0 hay ko, nếu lớn hơn thì in ra a và hạ xuống 1 đơn vị”

1. program kiem_tra;

   uses crt;

   var a:integer;

   begin

        clrscr;

        write(‘Nhap a: ‘);   readln(n);

        if a>0 then 

             begin

                  writeln(a,’>0′);

                  write(‘Sau khi giam 1 don vi la: ‘,a-1);

             end

        else write(a,'<0′);

        readln;

   end.

   Bình luận

2. program a;

   uses crt;

   var a: integer;

   Begin

            clrscr;

            write(‘Nhap a: ‘); readln(a);

            if a>0 then write(a-1)

            esle write(a,’ < 0′);

            readln

   End.

   Bình luận