Составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее – полусуммой этих чисел
Составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее – полусуммой этих чисел
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы