Viết phương trình nhập vào chiều cao của Trang , Ngân kiểm tra và in ra bạn có chiều cao hơn ra màn hình.

0 bình luận về “Viết phương trình nhập vào chiều cao của Trang , Ngân kiểm tra và in ra bạn có chiều cao hơn ra màn hình.”

1. program ss;

   uses crt;

   var m,n: integer;

   begin

   clrscr;

   write(‘Nhap chieu cao cua Trang: ‘);

   readln(m);

   write(‘Nhap chieu cao cua Ngan: ‘);

   readln(n);

   if(m<n) then writeln(n);

   if(m>n) then writeln(m);

   if(m=n) then writeln(‘Trang cao bang Ngan’);

   readln;

   end.

   Bình luận

2. program ct;

   uses crt;

   var trang,ngan:integer;

   begin

   clrscr;

   write(‘nhap chieu cao cua trang:=’);readln(trang);

   write(‘nhap chieu cao cua ngan:=’);readln(ngan);

   if trang>ngan then writeln(trang,’ cao hon ngan’);

   if trang<ngan then writeln(ngan,’cao hon trang’);

   if trang= ngan then writeln(‘trang bang ngan’);

   readln

   end.

   Bình luận