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

Question

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

Answer 1

45

pilotprint

18 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: