Напишите программу, которая считает произведенине нечетных чисел на заданном промежутке (паскаль)

Question

Информатика

Эладя

27 августа, 05:43

Напишите программу, которая считает произведенине нечетных чисел на заданном промежутке (паскаль)

+4

Ответы (1)

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

Меланьюшка · Answer 1

Program;

var a, i, n, p:integer;

Begin

p:=1;

read (n) ;

for i:=1 to n do

begin

read (a) ;

if a mod 20 then

p:=p*a;

end;

writeln (p) ;

End.