Viết chương trình nhập vào chiều cao của ba bạn a b c in ra màn hình kết quả bạn cao nhất mn giúp em vs ạ

0 bình luận về “Viết chương trình nhập vào chiều cao của ba bạn a b c in ra màn hình kết quả bạn cao nhất mn giúp em vs ạ”

1. uses crt;

   var a,b,c,m: real;

               bcn: char;

   begin

   clrscr;

   write (‘nhap chieu cao cua ban a: ‘);  readln (a);

   write (‘nhap chieu cao cua ban b: ‘);  readln (b);

   write (‘nhap chieu cao cua ban c: ‘);  readln (c);

   m:=a;

   bcn:=’a’;

   if m<=b then

   begin

    m:=b;

    bcn:=’b’;

   end;

   if m<=c then

   begin

    m:=c;

    bcn:=’c’;

   end;

   writeln (‘ban ‘,bcn,’ cao nhat’);

   readln;

   end.

   Bình luận

2. program btsydn;

   uses crt;

     var a, b, c, max: real;

   begin

             clrscr;

             write(‘Nhap chieu cao ban a = ‘); readln(a);

             write(‘Nhap chieu cao ban b = ‘); readln(b);

             write(‘Nhap chieu cao ban c = ‘); readln(c);

             max:=a;

             if max<b then max:=b;

             if max<c then max:=c;

             writeln(‘Ban co chieu cao cao nhat la: ‘, max);

             readln

   end;

   Bình luận