Вопрос по информатике:
Даны три целых числа найти произведение отрицательных чисел в исходном наборе.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
Пожаловаться
- 26.09.2018 09:43
- Информатика
- remove_red_eye 19823
- thumb_up 28
Ответы и объяснения 1
Begin
var (a,b,c):=ReadInteger3('Введите 3 числа->');
if (a<0) and (b<0) and (c<0)
then PrintLn('Произведение:',a*b*c) else
if (a<0) and (b<0)
then PrintLn('Произведение:',a*b) else
if (a<0) and (c<0)
then PrintLn('Произведение:',a*c) else
if (b<0) and (c<0)
then PrintLn('Произведение:',b*c) else
Println('Отрицательных нет');
end.
P.S писал на скорую руку, на телефоне, проверь, среда PascalABC.NET
var (a,b,c):=ReadInteger3('Введите 3 числа->');
if (a<0) and (b<0) and (c<0)
then PrintLn('Произведение:',a*b*c) else
if (a<0) and (b<0)
then PrintLn('Произведение:',a*b) else
if (a<0) and (c<0)
then PrintLn('Произведение:',a*c) else
if (b<0) and (c<0)
then PrintLn('Произведение:',b*c) else
Println('Отрицательных нет');
end.
P.S писал на скорую руку, на телефоне, проверь, среда PascalABC.NET
Пожаловаться
- 28.09.2018 00:35
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы