Составить программу вычисления произведения нечётных чисел меньши 16

Question

Составить программу вычисления произведения нечётных чисел меньши 16

Answer 1

Var n:byte;
sum:integer;
begin
n:=16;
repeat
dec(n);
if (n mod 2)=0 then continue;
sum:=sum+n;
until n=0;
writeln(sum);
end.

Comments

Тут складывается , а надо умножать все не чётные числа

---

упс, ошибка, но она не критичная, просто замени знак "+" на "*"

---

Я менял знак ,он выдаёт 0

---

поставь в начале программы после begin sum:=1;

---

var n:byte;
sum:integer;
begin
n:=16;
sum:=1;
repeat
dec(n);
if (n mod 2)=0 then continue;
writeln(n);
sum:=sum*n;
until n=0;
writeln(sum);
end.

---

прошу прощения за предоставленные неудобства