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

Question

Информатика

Линка

3 июня, 02:10

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

+2

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