Вопрос по информатике:
Запросить 5 произвольных чисел . найти сумму отрицательных и произведение положительных
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 19.02.2016 14:44
- Информатика
- remove_red_eye 942
- thumb_up 27
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1195 от 09.03.2016
begin
var s:=0.0;
var p:=1.0;
var c:real;
for var i:=1 to 5 do begin
Write('Число ',i,': '); Read(c);
if c<0 then s+=c
else
if c>0 then p*=c
end;
Writeln('Сумма отрицательных равна ',s);
Writeln('Произведение положительных равно ',p)
end.
Тестовое решение:
Число 1: 3.5
Число 2: -1.4
Число 3: 0
Число 4: 3.7
Число 5: -2.11
Сумма отрицательных равна -3.51
Произведение положительных равно 12.95
- 20.02.2016 08:44
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.