Предмет: Информатика, автор: reshi5

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

Ответы

Автор ответа: Olia1904
0

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.

 

 

Похожие вопросы
Предмет: Геометрия, автор: gershev50
Предмет: Математика, автор: Kozuhov2004