Question

viết chương trình in ra số lớn nhất trong 4 số (nhập từ bàn phím ) thêm yêu cầu có thông báo khi có số giống nhau .

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.

Answer 2

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'); Writeln('---------------------------------------------------------------'); Write('Nhap a='); Readln(a);

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

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

Write('Nhap d='); Readln(d);

if (a>b) and (a>c) then writeLn('a la so lon nhat')

else if (b>a) and (b>c) and (b>d) then writeln('b la so lon nhat')

else if (c>a) and (c>b) and (c>d) then writeln('c la so lon nhat')

else if (d>a) and (d>b) and (d>c) then writeln('d la so lon nhat')

else writeln ('a=b=c=d')

readln;

END.