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

Question

Информатика

Млада

25 июня, 06:38

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

+4

Ответы (1)

Знаете ответ на вопрос?

Антиох · Answer 1

Program n1;

Uses CRT;

Var a, b: integer;

begin

Writeln ('Vvedite chisla') ;

Readln (a, b) ;

If a>b then writeln (2*a*b,' ', a+b/2:2:2)

else if a=b then writeln ('ravny!')

else writeln (a+b/2:2:2,' ',2*a*b) ;

readln

end.