Составить програму на поскале используя цикл repeat : посчитать произведение...

Question

Составить програму на поскале используя цикл repeat : посчитать произведение p=1*3*5*...*11

Answer 1

Var x, p: integer;
begin
x:= 1;
p:=1;
repeat
p:= p*x;
x:= x + 2;
until x<11;<br>end.