Подсчитать произведение целых нечётных чисел диапазона [a, b]

Question

Информатика

Амата

17 июня, 17:04

Подсчитать произведение целых нечётных чисел диапазона [a, b]

+3

Ответы (1)

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

Данило · Answer 1

Program Proizved;

var i, a, b, rez : integer;

begin

write ('введите начало диапазона ') ;

readln (a) ;

write ('введите конец диапазона ') ;

readln (b) ;

rez:=1;

for i:=a to b do

if (i mod 2) 0

then rez:=rez*i;

i:=i+1;

writeln ('Произведение нечетных чисел диапазона = ', rez) ;

end.