a(a+1)...(a+n-1)
Требуется вывести результат последовательности.
Задание из лабы по паскалю. Туплю.
Решил задачу, спасибо
Var m, a, i, n: integer;
Begin
//a(a+1)...(a+n)
read(a,n);
m:=a;
i:=1;
While i<n do
Begin
m:=m*(a+i);
Inc(i);
End;
writeln('ans=',m);
End.
$mul = $a;
for ($i = 1; $i < $n; $i++)
$mul *= $a + $i;
echo $mul;
мне кажется, что эта задача имеет интерес, если например решать ее одной строкой
$a = 2;
$n = 3;
echo array_reduce(range(0, $n - 1), function($r, $v) use ($a){ return $r*($a+$v);}, 1);
или
echo array_product(array_map(function($v) use ($a){ return $a + $v; }, range(0, $n-1)));
Современные инструменты для криптотрейдинга: как технологии помогают принимать решения
Апостиль в Лос-Анджелесе без лишних нервов и бумажной волокиты
Основные этапы разработки сайта для стоматологической клиники
Продвижение своими сайтами как стратегия роста и независимости