Вопрос по информатике:
Среди n введенных с клавиатуры чисел, найти сумму положительных и произведение отрицательных чисел
- 10.09.2017 21:06
- Информатика
- remove_red_eye 13895
- thumb_up 19
Ответы и объяснения 1
Var n, sum, p: integer;
begin
sum := 0;
p := 1;
repeat
write('Введите число (для завершения программы введите 0000): ');
readln(n);
if n 0 then begin
if n >= 0 then sum := sum + n;
if n < 0 then p := p * n;
end
else writeln('ИТОГ');
writeln( 'Сумма положительных: ', sum, ' | Произведение отрицательных: ', p);
writeln();
until n = 0000;
end.
- 11.09.2017 07:11
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.