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

1

Ответы и объяснения

2013-05-17T19:07:46+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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.