Viết chương trình nhập vào một số nguyên t bất kỳ từ bàn phím. Nếu 0 thi in kết qun ra màn hình, ngược lại thì in ra màn hình thông báo t là số âm.

0 bình luận về “Viết chương trình nhập vào một số nguyên t bất kỳ từ bàn phím. Nếu 0 thi in kết qun ra màn hình, ngược lại thì in ra màn hình thông báo t là số âm.”

1. uses crt;
   var t : integer;
   begin clrscr;
   write(‘Nhap so nguyen t:’); readln(t);
   if t=0 then write(t) else write(‘,t’,’la so am’);
   readln
   end.

   Bình luận

2. program ct;

   uses crt;

   var t:integer;

   begin

   clrscr;

     write(‘nhap t=’);readln(t);

        if t=0 then writeln(t) else writeln(t,’ la so am’);

   readln

   end.

   Bình luận