Даны 2 числа меньшее из них заменить полусуммой…

Задание:

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

Решение:

Program n1; Uses CRT; Var a,b: integer; beginWriteln ('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); readlnend.

Знаете другой ответ?

Отправить свой ответ