Ответы на вопрос:
Pascal: var a,b: integer; begin write('a = '); readln(a); write('b = '); readln(b); if (a < 0)xor(b < 0) then writeln('-') else writeln('+') end.
//версия написания (по просьбе эникей): //pascalabccompiler.core v3.3.0.1540 (16.09.2017) var a, b: integer; begin write('введите числа a и b через пробел и нажмите "enter": '); read(a, b); write('знак произведения - '); if a*b < 0 then write('"-"') else if a*b > 0 then write('"+"') else write('//произведение равно нулю'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Nunamay13.03.2023 14:13
-
vovastrebkov16106.08.2021 14:36
-
nadia619124.08.2020 12:01
-
TlPuBeT28.10.2020 22:18
-
Tiktak22218.05.2022 17:39
-
venqa22802.04.2020 12:08
-
idxanax10.12.2020 12:33
-
Iliyz25.11.2022 09:12
-
glupostsroghdeniy10.07.2021 14:08
-
IMAM05778815.12.2020 21:08
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.