Question

Задание 3. Напишите программу на Паскале для решения следующей задачи. Даны два числа x и y, не равные друг другу. Меньшее из этих чисел замените половиной их суммы, а большее – их удвоенным произведением.

Answer 1

Вариант программы и результата её выполнения на скриншотах.

Answer 2

Вот пример программы на Паскале для решения этой задачи:

goCopy code
program ReplaceNumbers;

var
  x, y, smaller, larger, sum: real;

begin
  writeln('Введите два числа: ');
  readln(x, y);

  if x < y then
  begin
    smaller := x;
    larger := y;
  end
  else
  begin
    smaller := y;
    larger := x;
  end;

  sum := smaller + larger;

  smaller := sum / 2;
  larger := 2 * smaller * larger;

  writeln('Меньшее число после замены: ', smaller);
  writeln('Большее число после замены: ', larger);

end.

Программа начинается с запроса двух чисел с помощью readln. Затем она определяет, какое из этих чисел меньше, и сохраняет его в переменной smaller, а большее число в переменной larger.

Далее программа находит сумму sum этих двух чисел, заменяет меньшее число smaller половиной суммы, а большее число larger удвоенным произведением 2 * smaller * larger.

Наконец, программа выводит измененные значения smaller и larger с помощью writeln.

Обратите внимание, что в данной программе используются переменные типа real, поскольку исходные числа могут быть нецелыми. Если известно, что исходные числа всегда целые, то можно использовать переменные типа integer.