Ответ:
var x,y,k:real;
begin
readln(x,y);
if x>y then begin k:=y; y:=(y+x)/2; x:=x*k end
else begin k:=x; x:=(x+y)/2; y:=y*k; end;
writeln(x,y,);
end.
Ответ:
var
a, b, c: real; {a и b — вводимые с клавиатуры числа, c — буферная переменная, которая будет содержать значение переменной a}
begin
writeln(‘Введите 2 числа’);
readln(a, b); //Вводим числа
c:= a;
if a < b then {Если a < b, то заменяем а на среднее арифметическое этих чисел, b — на произведение этих чисел и распечатываем их}
begin
a:= (a + b) / 2;
b:= c * b;
writeln(‘a < b => a = ‘, a, ‘, b = ‘, b);
end;
if b < a then {Если b < a, то заменяем а на произведение чисел, b — на среднее арифметическое чисел}
begin
a:= a * b;
b:= (c + b) / 2;
writeln(‘b < a => a = ‘, a, ‘, b = ‘, b);
end;
if a = b then writeln(‘Числа равны’); {Числа числа равны, то печатаем сообщение об этом}
end.
Если все правильно, отметь решение как лучшее)