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