Предмет: Информатика,
автор: Maksmail23
Даны три целых числа найти произведение отрицательных чисел в исходном наборе.
Ответы
Автор ответа:
0
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
Похожие вопросы
Предмет: Геометрия,
автор: ibalytaa
Предмет: История,
автор: karynajater
Предмет: Математика,
автор: cixuqapkzn
Предмет: Математика,
автор: ВикаМендаль