Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím).
1 câu trả lời
Uses crt;
Var a, b, c, d,max:real;
Begin
Clrscr;
Writeln ('TIM SO LON NHAT TRONG BON SO A, B, C, D');
Writeln('---------------------------------------------------------------');
Write ('Nhap a: '); Readln(a);
Write ('Nhap b: '); Readln(b);
Write ('Nhap c: '); Readln(c);
Write ('Nhap d: '); Readln(d);
max:=a;
If b>max then max:=b;
If c>max then max:=c;
If d>max then max:=d;
Writeln ('So lon nhat la:',max:1:2);
Readln;
End.
