Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
110
73
uses crt;
var m,n,p,q: integer;
begin
clrscr;
write ('Nhap m: '); readln (m);
write ('Nhap n: '); readln (n);
write ('Nhap p: '); readln (p);
write ('Nhap q: '); readln (q);
if (m>=n) and (m>=p) and (m>=q) then writeln (m);
if (n>=m) and (n>=p) and (n>=q) then writeln (n);
if (p>=n) and (p>=m) and (p>=q) then writeln (p);
if (q>=n) and (q>=p) and (q>=m) then writeln (q);
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
2901
1826
`-` max: Hàm tìm số lớn nhất trong `2` số.
`->` Số lớn nhất trong `4` số `a`, `b`, `c`, `d`: max(max(max(a,b),c),d).
`\bb\text{Chương trình Pascal:}`
program ChanPas;
uses crt, math;
var a,b,c,d : real;
begin
clrscr;
readln(a,b,c,d);
writeln('So lon nhat: ',max(max(max(a,b),c),d):0:2);
readln;
end.
$\\$
`\bb\text{@Daoanhviet96}`
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
751
21819
1052
Bạn vào nhóm mình không ạ?