Question

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

Answer 1

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