Составьте программу вычисления произведения нечетных чисел от 11 до 43 через while

Question

Составьте программу вычисления произведения нечетных чисел от 11 до 43 через while

Answer 1

Program f1;
var p,x: integer;
begin
p:=1;
x:=11;
while x<= 43 do begin<br>p:=p*x;
x:=x+2;
end;
writeln(p);
end.

Comments

Можно данную задачу сделать через mod (остаток от деленияҚ