Напишите программу на Паскале для решения следующей задачи. Даны два числа A и B, которые не равны друг другу. Большее из этих чисел нужно заменить половиной разности этих двух чисел, а меньшее — их удвоенным произведением. Значения A и B задать самостоятельно с клавиатуры. На проверку нужно прислать скриншот окна программы на Паскале с результатом работы.
Помогите пожалуйста, очень надо)))))))
Помогите пожалуйста, очень надо)))))))
Answers & Comments
##
var (a, b) := ReadReal2;
if a > b then
Swap(a, b);
(a, b) := (2 * a * b, (a - b) / 2);
Print(a, b)