** языке ПАСКАЛЬ сделать: Найти квадрат суммы максимального и минимального из 4 чисел.

Question

На языке ПАСКАЛЬ сделать:
Найти квадрат суммы максимального и минимального из 4 чисел.

Answer 1

Var a,b,c,d,min,max: integer;
begin
readln(a,b,c,d);
min:=a;
max:=a;
if (b >= max) then max:=b;
if (b <= min) then min:=b;<br>if (c >= max) then max:=c;
if (c <= min) then min:=c;<br>if (d >= max) then max:=d;
if (d <= min) then min:=d;<br>writeln((max+min)*(max+min));
end.

Comments

да

---

все правильно?

---

ща проверю

---

спс

---

да

---

правильно?

---

все работает

---

спс

---

Да действительно работает! Спасибо

---

нез

Answer 2

Var
  a,b,c,d,min,min1,max,max1:integer;
begin
  Readln(a,b,c,d);
  if a>b then begin max1:=a; min1:=b end
  else begin max1:=b; min1:=a end;
  if c>d then begin max:=c; min:=d end
  else begin max:=d; min:=c end;
  if max1>max then max:=max1;
  if min1  Writeln('max=',max,' min=',min)
end.