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

Question

Ленина

27 марта, 09:20

+4

Ответы (1)

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

Леонинка · Answer 1

var a, b:integer;

begin

read (a, b) ;

if a>b then begin

a:=2*a*b;

b: = (a+b) / 2 else

b:=2*a*b;

a: = (a+b) / 2;

end;

write (a, b) ;

end.