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;
end.