viết chương trình nhập vào bốn số a,b,c,d in ra số lớn nhất trong bốn số được nhập từ bàn phím. Nếu a>b và a>c và a>d thì in a là số lớn nhất. Tương tự như thế xét các trường hợp còn lại để tìm số lớn nhất
viết chương trình nhập vào bốn số a,b,c,d in ra số lớn nhất trong bốn số được nhập từ bàn phím. Nếu a>b và a>c và a>d thì in a là số lớn nhất. Tương tự như thế xét các trường hợp còn lại để tìm số lớn nhất
uses crt;
var a,b,c,d:longint;
begin
clrscr;
write(‘a=’);readln(a);
write(‘b=’);readln(b);
write(‘c=’);readln(c);
write(‘d=’);readln(d);
write(‘So lon nhat: ‘);
if(a>b)and(a>c)and(a>d) then write(a) else
if(b>a)and(b>c)and(b>d) then write(b) else
if(c>a)and(c>b)and(c>d) then write(c) else
if(d>a)and(d>c)and(d>b) then write(d) else write(a);
readln
end.
Tương tự như thế xét các trường hợp còn lại để tìm số lớn nhất.
Program So_Lon_Nhat_1;
Uses crt;
Var a,b,c,d: real;
Begin
Clrscr;
Write(‘Nhap so thu nhat:’);readln(a);
Write(‘Nhap so thu hai:’);readln(b);
Write(‘Nhap so thu ba:’);readln(c);
Write(‘Nhap so thu tu:’);readln(d);
if (a>=b) and (a>=c) and (a>= d) then writeln(‘So lon nhat la:’,a:10:2);
if (b>=a) and (b>=c) and (b>= d) then writeln(‘So lon nhat la:’,b:10:2);
if (c>=a) and (c>=b) and (c>= d) then writeln(‘So lon nhat la:’,c:10:2);
if (d>=a) and (d>=b) and (d>= c) then writeln(‘So lon nhat la:’,d:10:2);
readln
end.
/chúc bạn học tốt/
Nhớ vote cho mình nhé!