Program z_1Var i,p : realBegip:=1i:=1while i <= 15 dBegip:=p*ii:=i+2Endwrite ('произведение нечётных чисел от 1 до 15 =',p)End.
Program z_1
Var i,p : real
Begi
p:=1
i:=1
while i <= 15 d
Begi
p:=p*i
i:=i+2
End
write ('произведение нечётных чисел от 1 до 15 =',p)
End.