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 ạ

Question

minhguyrttuanh · Answer

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.

quynhnghi · Answer

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;