составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее-полусуммой этих чисел.

Question

Информатика

Агриппична

8 июня, 22:55

составьте программу, заменяющую из двух данных чисел большее число удвоенным произведением, а меньшее-полусуммой этих чисел.

+1

Ответы (1)

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

Надюня · Answer 1

Program proiz;

Var X, Y: integer;

begin

Write ('Введите переменную Х') ;

Read (X) ;

Write ('Введите переменную Y') ;

Read (Y) ;

If X>Y then

Write ('наибольшее Х = ', X*X, ' Наименьшее Y', (Y+Y) / 2)

else

Write ('Наибольшее Y = ', Y*Y, ' Наименьшее X', (X+X) / 2) ;

end;

end.