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

Интересные вопросы
Предмет: Русский язык,
автор: sibova
Предмет: Английский язык,
автор: 89152268873
Предмет: Математика,
автор: Аноним
Предмет: Геометрия,
автор: eloquence
Предмет: Математика,
автор: FaceGucciGanger