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

Question

Информатика

Георгий

12 ноября, 04:44

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

+5

Ответы (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.