Найти произведение всех нечетных чисел от числа "а" до числа "b"

Question

Найти произведение всех нечетных чисел от числа "а" до числа "b"

Comments

Паскаль?

---

Нет, алгоритм

---

А, ладно, давай код в Паскале.

Answer 1

Program n1;
var a,b,i: integer;
p: real;
begin
p:=1;
readln(a,b);
for i:=a to b do if i mod 2<>0 then p:=p*i;
write(p);
end.