Question

составить программу определяющую одинаковый ли знак у двух заданных чисел. Ответ должен быть в виде: DA / NET

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите через пробел два числа');
  if Sign(a)=Sign(b) then Writeln('DA') else Writeln('NET')
end.

Пример
Введите через пробел два числа -345.43 12
NET

Answer 2

Var
a,b:integer;
begin
Writeln('Введите числа');
Readln(a,b);
If a*b>=0 then Writeln('DA') else Writeln('Net');
end.

Answer 3

Вот пример программы на языке Python, которая определяет, имеют ли два заданных числа одинаковый знак:

pythonCopy code
def check_sign(num1, num2):
    if num1 * num2 > 0:
        return "DA"  # Одинаковый знак
    else:
        return "NET"  # Разный знак


# Пример использования
number1 = float(input("Введите первое число: "))
number2 = float(input("Введите второе число: "))

result = check_sign(number1, number2)
print("Результат: ", result)

При запуске программы она запросит у вас два числа и выдаст ответ "DA" (если числа имеют одинаковый знак) или "NET" (если числа имеют разный знак).