Предмет: Информатика, автор: Maksmail23

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

Ответы

Автор ответа: Giammy
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
Похожие вопросы
Предмет: История, автор: karynajater
Предмет: Математика, автор: ВикаМендаль