viết chương trình so sánh chiều cao của 2 bạn An và BÌnh được nhập từ bàn phím

0 bình luận về “viết chương trình so sánh chiều cao của 2 bạn An và BÌnh được nhập từ bàn phím”

1. uses crt;

   var an,binh:real;

   begin

   clrscr;

   write(‘Nhap chieu cao cua An(cm): ‘);readln(an);

   write(‘Nhap chieu cao cua Binh(cm): ‘);readln(binh);

   if an=binh then writeln(‘Hai ban cao bang nhau’) else

   if an>binh then writeln(‘An cao hon Binh’) else

   writeln(‘Binh cao hon An’);

   readln

   end.

   Bình luận

2. program aicaohon;

   uses crt;

   var An, Binh :real;

   begin

   clrscr;

   write(‘nhap chieu cao cua An: ‘); readln(An);

   write(‘nhap chieu cao cua Binh : ‘);  readln(Binh);

   if An>Binh then writeln(‘Ban An cao hon’)

   else writeln(‘Ban Binh cao hon’);

   if An=Binh then writeln(‘hai ban cao bang nhau’);

   readln

   end.

   Bình luận