Предмет: Информатика, автор: danybu

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

Ответы

Автор ответа: Аноним
0
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.
Похожие вопросы
Предмет: Математика, автор: ududyrhehe
Предмет: Математика, автор: fewfewqhufewqnouicmw
Предмет: Алгебра, автор: kirillpolev123