Question

Ввести 2 числа. Если их произведение отрицательно, умножить оба на 2 и вывести на экран, в противном случае увеличить оба в 3 раза и вывести на экран.

Answer 1

PascalABC.NET 3.7:

• ###
• var a := RAI(2);
• var p := a.Product;
• a.Tr(x → p<0 ? x*2 : x*3).Pr

Answer 2

Хорошо! Я могу помочь вам написать программу, которая решит вашу задачу. Вот пример кода на языке Python, который реализует данное условие:

pythonCopy code
number1 = int(input("Введите первое число: "))
number2 = int(input("Введите второе число: "))

product = number1 * number2

if product < 0:
    number1 *= 2
    number2 *= 2
else:
    number1 *= 3
    number2 *= 3

print("Результат:")
print("Первое число:", number1)
print("Второе число:", number2)

При выполнении этого кода программа запросит у вас ввод двух чисел, а затем проверит их произведение. Если оно отрицательно, то числа умножатся на 2. В противном случае числа увеличатся в 3 раза. Результат будет выведен на экран.

Вы можете скопировать и выполнить этот код на своей системе для проверки.