ТутРешу.Ру

Составить программу устанавливающую одного ли знака два числа…

Задание:

Составить программу устанавливающую одного ли знака два числа вводимые с клавиатуры

Решение:

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.




Знаете другой ответ?

Отправить свой ответ