Question

Даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. Разработать схему алгоритма для решения этой задачи. Протестировать алгоритм на числах 5.5 и -4.3, а также на числах 1 и 14.5.

Answer 1

Var a,b,c,d:real;
begin
read(a,b);
if a>=b then
beginc:=a;
a:=(a+b)*2;
b:=(c+b)/2;
end else begin
c:=b;
b:=(a+b)*2;
a:=(c+b)/2;
end;
end.