Question

Дан ряд -1; 0,5; 2 ... Рассчитайте произведение дробных чисел в интервале от А до В.
Решите на языке паскаль пожалуйста

Answer 1

program mult;

var a, b, i, m: real;

begin

Readln(a, b);

i := a;

m := 1;

while i <= b do begin

m *= i;

i += 1.5;

end;

WriteLn(m);

end.