Question

Даны два числа a и b. Меньшее из них замените полусуммой этих чисел, а большее - произведением этих чисел

Answer 1

var a,b,s,p:real;
begin
readln(a,b);
s:=(a+b)/2;
p:=a*b;
if a<b then begin a:=s; b:=p end
else begin b:=s; a:=p; end;
writeln('a = ',a:4:2,' b = ',b:4:2);
end.

Пример:
15 27
a = 21.00 b = 405.00