Даны три целых числа найти произведение отрицательных чисел в исходном наборе.

Question

Даны три целых числа найти произведение отрицательных чисел в исходном наборе.

Comments

и на каком же языке программирования аа

Answer 1

Begin
var (a,b,c):=ReadInteger3('Введите 3 числа->');
if (a<0) and (b<0) and (c<0)<br> then PrintLn('Произведение:',a*b*c) else
if (a<0) and (b<0)<br> then PrintLn('Произведение:',a*b) else
if (a<0) and (c<0)<br> then PrintLn('Произведение:',a*c) else
if (b<0) and (c<0)<br> then PrintLn('Произведение:',b*c) else
Println('Отрицательных нет');
end.

P.S писал на скорую руку, на телефоне, проверь, среда PascalABC.NET