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

Question

Информатика

Вербния

10 ноября, 17:31

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

+5

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