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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.