mastermax217
13.08.2022 13:02

Напишите программу на Паскале для решения следующей задачи. Даны два числа A и B, которые не равны друг другу. Большее из этих чисел нужно заменить половиной разности этих двух чисел, а меньшее — их удвоенным произведением. Значения A и B задать самостоятельно с клавиатуры. На проверку нужно прислать скриншот окна программы на Паскале с результатом работы очень надо

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:

##

var (a, b) := ReadReal2;

if a > b then

 Swap(a, b);

(a, b) := (2 * a * b, (a - b) / 2);

Print(a, b)


Напишите программу на Паскале для решения следующей задачи. Даны два числа A и B, которые не равны д
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота