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;
if (c >= max) then max:=c;
if (c <= min) then min:=c;
if (d >= max) then max:=d;
if (d <= min) then min:=d;
writeln((max+min)*(max+min));
end.

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<min then min:=min1;
  Writeln('max=',max,' min=',min)
end.

Answer 3

Конечно! Вот пример кода на языке Паскаль, который решает данную задачу:

pascalCopy code
program SquareSumMinMax;

var
  a, b, c, d, min, max, sum, square: Integer;

begin
  // Вводим четыре числа
  Write('Введите число a: ');
  Readln(a);
  Write('Введите число b: ');
  Readln(b);
  Write('Введите число c: ');
  Readln(c);
  Write('Введите число d: ');
  Readln(d);
  
  // Находим минимальное и максимальное число
  min := a;
  max := a;
  
  if b < min then
    min := b;
  if c < min then
    min := c;
  if d < min then
    min := d;
    
  if b > max then
    max := b;
  if c > max then
    max := c;
  if d > max then
    max := d;
    
  // Сумма минимального и максимального чисел
  sum := min + max;
  
  // Квадрат суммы
  square := sum * sum;
  
  // Вывод результата
  Writeln('Квадрат суммы максимального и минимального чисел: ', square);
  
  Readln;
end.

При запуске программы вы сможете ввести четыре числа, а затем программа найдет минимальное и максимальное число, вычислит сумму этих чисел и возведет ее в квадрат. Результат будет выведен на экран.