С клавиатуры вводятся последовательно из k целых чисел вычислить произведение нечетных членов последовательности

Question

Информатика

Панкрат

27 июля, 08:33

С клавиатуры вводятся последовательно из k целых чисел вычислить произведение нечетных членов последовательности

+3

Ответы (1)

Знаете ответ на вопрос?

Роберт · Answer 1

Var I, K, P, x:integer;

begin

writeln ('введите количество чисел') ;

readln (k) ;

P:=1;

for I:=1 to k do begin

writeln ('введите число') ;

readln (x) ;

if (x mod 2) 0 then P:=P*x;

end;

writeln ('произведение нечётных членов = ', P) ;

end.