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

Question

Информатика

Степанидка

15 августа, 20:52

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

+4

Ответы (1)

Знаете ответ?

Генрих · 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.