Дан ряд -1; 0,5; 2 ... Рассчитайте произведение дробных чисел в интервале от А до В.
Решите на языке паскаль пожалуйста
Ответы
Ответ дал:
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад