Question

viết chương trinhg nhập và chiều cao của 3 bạn a,b,c in ra man hình bạn có chiều cao lớn nhất

 

Answer 1

Var a,b,c,max:real;

Begin

Write('Nhap a = ');readln(a);

max:=a;

Write('Nhap b = ');readln(b);

If b > max then max:=b;

Write('Nhap c = ');readln(c);

If c > max then max:=c;

Write('Ban cao nhat la ',max:10:2);

Readln;

End.