Информатика, опубликовано 2018-08-22 21:37:47 by Гость
С клавиатуры вводятся последовательно из k целых чисел вычислить произведение нечетных членов последовательности
Ответ оставил Гость
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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на