Вопрос по информатике:
Введите с клавиатуры четыре числа. Найдите и выведите н экран сумму и произведение тех чисел, значения которых отрицательны.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.06.2015 20:15
- Информатика
- remove_red_eye 12115
- thumb_up 35
Ответы и объяснения 1
Var a,b,c,d,a1,b1,c1,d1:real;
begin
a1:=0;b1:=0;c1:=0;d1:=0;
read (a,b,c,d);
if (a<0) or (b<0) or (c<0) or (d<0) then
begin
if (a<0) then a1:=a;
if (b<0) then b1:=b;
if (c<0) then c1:=c;
if (d<0) then d1:=d;
writeln ('Сумма отрицательных = ',a1+b1+c1+d1);
a1:=1;b1:=1;c1:=1;d1:=1;
if (a<0) then a1:=a;
if (b<0) then b1:=b;
if (c<0) then c1:=c;
if (d<0) then d1:=d;
writeln ('Произведение отрицательных = ',a1*b1*c1*d1);
end
else writeln ('Все числа больше либо равны 0');
end.
- 27.06.2015 00:50
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.