Question

язык паскаль с клав ввод 2 числа x и y не равные друг другу. Меньший из этих двух числ заменить их пол суммы а большие их удвоен произвед

Answer 1

Подойдёт? var  x,y: real; begin  read(x,y);  if x < y then  begin  x := (x+y)/2;  y := 2*x*y;  end  else  begin  y := (x+y)/2;  x := 2*x*y;  end;  write('x=',x,', y=',y); 

Answer 2

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

pascalCopy code
program ReplaceNumbers;
var
  x, y, sum, product: Integer;
begin
  writeln('Введите два числа x и y (не равные друг другу):');
  readln(x);
  readln(y);
  
  if x = y then
  begin
    writeln('Числа должны быть различными.');
    exit;
  end;
  
  sum := x + y;
  product := x * y;
  
  if x < y then
    x := sum div 2
  else
    y := product * 2;
  
  writeln('Результат:');
  writeln('x = ', x);
  writeln('y = ', y);
  
  readln;
end.

При выполнении программы сначала вводятся два числа x и y. Если они равны, то программа выводит сообщение об ошибке и завершается. В противном случае, программа вычисляет сумму sum и произведение product введенных чисел.

Затем программа проверяет, какое из чисел меньше. Если x меньше y, то x заменяется на половину суммы sum, иначе y заменяется на удвоенное значение произведения product.

В конце программа выводит обновленные значения x и y.

Обратите внимание, что в этом примере предполагается, что пользователь вводит целочисленные значения x и y.