Viết chương trình 4 số nguyên bất kì từ bàn phím. Tính tổng số lớn nhất với nhỏ nhất?
Mn ai làm mk vote 5* câu trả lời hay nhất đúng nhất vs nhanh nhất
Viết chương trình 4 số nguyên bất kì từ bàn phím. Tính tổng số lớn nhất với nhỏ nhất?
Mn ai làm mk vote 5* câu trả lời hay nhất đúng nhất vs nhanh nhất
write(max(max(a,b), max(c,d)) + min(min(a,b), min(c,d)) );
Nhớ vote5* + câu trả lời hay nhất.
Program FNG;
Uses crt;
Var a,b,c,d,min,max: longint;
Begin
Clrscr;
Write(‘Nhap a, b, c, d: ‘); Readln(a,b,c,d);
min:=a; max:=a;
If b>max then max:=b;
If b<min then min:=b;
If c>max then max:=c;
If c<min then min:=c;
If d>max then max:=d;
If d<min then min:=c;
Write(‘Tong: ‘,max+min);
Readln
End.