Question

Даны два числа а и b. Наименее из них возвести в квадрат, наибольшее-в куб и найти среднее арифметическое полученных значений. В Паскаль. Заранее спасибо.

Answer 1

Ответ:

var a,b:integer;

begin

writeln('a');  

read(a);

writeln('b'); read(b);

if a>b then write(a*a*a)

else write (sqr(b));

writeln((a+b)/2);

readln;

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая выполняет указанные действия:

pascalCopy code
program SquareCubeAverage;
var
  a, b, minVal, maxVal, squareVal, cubeVal, averageVal: real;
begin
  // Ввод значений a и b
  write('Введите значение a: ');
  readln(a);
  write('Введите значение b: ');
  readln(b);

  // Находим минимальное и максимальное значение
  if a < b then
  begin
    minVal := a;
    maxVal := b;
  end
  else
  begin
    minVal := b;
    maxVal := a;
  end;

  // Возводим минимальное значение в квадрат и максимальное в куб
  squareVal := minVal * minVal;
  cubeVal := maxVal * maxVal * maxVal;

  // Находим среднее арифметическое
  averageVal := (squareVal + cubeVal) / 2;

  // Вывод результатов
  writeln('Квадрат наименьшего значения: ', squareVal);
  writeln('Куб наибольшего значения: ', cubeVal);
  writeln('Среднее арифметическое: ', averageVal);

  // Ожидание нажатия клавиши перед выходом
  readln;
end.

Скопируйте этот код в среду разработки Pascal и выполните программу. Она запросит ввод значений a и b, затем выполнит необходимые вычисления и выведет результаты на экран.