Объяснение:
const a=0.5;b=5;h=0.5;
var x,p:real;
begin
x:=a;
p:=1;
repeat
p:=p*x;
x:=x+h;
until x>5;
writeln ('Произведение чисел от a=',a,' до b=',b, ' с шагом h=',h,' p=',p);
end.
Объяснение:
const a=0.5;b=5;h=0.5;
var x,p:real;
begin
x:=a;
p:=1;
repeat
p:=p*x;
x:=x+h;
until x>5;
writeln ('Произведение чисел от a=',a,' до b=',b, ' с шагом h=',h,' p=',p);
end.