Вопрос по информатике:
С клавиатуры вводится последовательность чисел до тех пор, пока не будет введено число 0. Требуется найти произведение нечетных чисел из введенной последовательности. Решение с помощью while, подробно.
- 18.12.2016 10:52
- Информатика
- remove_red_eye 10517
- thumb_up 41
Ответы и объяснения 1
Var
a,p: integer;
begin
p:=1;
a:=1;
while a0 do begin
write('Введите a:');readln(a);
if a mod 2 0 then p:=p*a;
end;
writeln('произведение нечетных: ',p);
end.
- 19.12.2016 13:51
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.