Question

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

Answer 1

uses crt;
var g: Integer;
n,m: Real;
Begin
Write('Введите два числа: ');
Readln(m,n);
If m>n then begin
g:=n;
n:=(m+n)/2;
m:=2*m*n;
end
else begin
g:=m;
m:=(m+n)/2;
n:=2*m*n;
end;
Writeln('m = ', m, ' n = ', n);
End.