Вопрос по информатике:
Составьте программу, запрашивающую у пользователя K целых чисел и вычисляющую произведение положительных.
Пример работы:
Окно вывода
Сколько чисел обработать? 5
Введите число 2
Введите число
Введите число
Введите число
Введите число
Произведение положительных чисел из 5 составляет 24
памагите а то я уже сижу рыдать начинаю (через паскаль надо сделать...)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.05.2017 11:54
- Информатика
- remove_red_eye 16797
- thumb_up 37
Ответы и объяснения 1
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Сколько чисел обработать?');
var s:=1;
loop n do begin
var k:=ReadInteger('Введите число');
if k>0 then s*=k
end;
Writeln('Произведение положительных чисел из ',n,' составляет ',s)
end.
Пример
Сколько чисел обработать? 5
Введите число 7
Введите число -4
Введите число 0
Введите число 9
Введите число -2
Произведение положительных чисел из 5 составляет 63
- 16.05.2017 09:06
- thumb_up 43
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.