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.

Answer 2

var A, B, i: integer; product: real;

begin A := 1; // начало интервала B := 3; // конец интервала product := 1; // начальное значение произведения for i := A to B do begin product := product * (i - 2); // рассчитываем произведение дробных чисел в интервале от A до B end; writeln('Произведение дробных чисел в интервале от ', A, ' до ', B, ' равно ', product); end.