Задание:
Составить программу устанавливающую одного ли знака два числа вводимые с клавиатуры
Решение:
Var a, b: real; begin readln (a, b); if (a > 0) and (b > 0) or (a < 0) and (b < 0) then writeln ('Yes') else writeln ('No'); end.
Знаете другой ответ?