nhập 1 số thực x. kiểm tra x là số lớn hơn 100 hay không pascal

0 bình luận về “nhập 1 số thực x. kiểm tra x là số lớn hơn 100 hay không pascal”

1. program ctpt;

   uses crt;

     var x: real;

   begin

             clrscr;

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

             if x>100 then write(‘x lon hon 100’) else write(‘x khong lon hon 100’);

             readln

   end.

   Bình luận

2. program ct;

   uses crt;

   var x:real;

   begin clrscr;

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

      if x>100 then write(x’, lon hon 100′) 

                    else write(x’, khong lon hon 100′);

   readln;

   end.

   Học tốt!

   Bình luận