Question

Tìm giá trị lơn nhất trong 4 số nguyên a b, c, d ( a, b, c, d được nhập từ bàn phím)

Answer 1

Program TIM_SO_LON_NHAT;
Uses crt;
Var a,b,c,d,max: real;
BEGIN Clrscr;
Writeln('TIM SO LON NHAT TRONG BON SO A, B, C, D');
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: 4: 2);
Readln;
END.