Question

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

Answer 1

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

Answer 2

Тогда там будет не >= , а прост>

Answer 3

Нет, не "прост", потому что ввод обоих нулей не отработает.

Answer 4

Но автору вопроса это все, походу, пофигу ))))))

Answer 5

А, точно)

Answer 6

Хах, ну есть такое

Answer 7

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