Составьте программу, заменяющую больше из двух данных чисел удвоенным произведением, а меньшее полусуммой этих чисел

Question

Информатика

Нинуша

2 августа, 08:47

Составьте программу, заменяющую больше из двух данных чисел удвоенным произведением, а меньшее полусуммой этих чисел

+1

Ответы (1)

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

Юка · Answer 1

Uses crt;

var a, b, c:real;

begin

read (a, b) ;

c:=a;

if a>b then

begin

a:=2*a*b;

b: = (c+b) / 2;

end

else begin

a: = (a+b) / 2;

b:=2*c*b;

end;

writeln;

write (a,' ', b) ;

end.