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

Question

Информатика

Алфея

13 марта, 06:31

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

+1

Ответы (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.