Как решить данный пример с помощью PascalABC

Question

Даниил Бондаренко Знаток (428), закрыт 4 года назад

Answer 1

Krab Bark Искусственный Интеллект (283210) 4 года назад

program p1;
var j,k:integer; p:real;
begin
p:=1; k:=1; for j:=1 to 5 do begin k:=k*j; p:=p*power(1+j,3)/(log10(j)+k) end; writeln(p)
end.

Спасибо большое

Answer 2

Алексей Хвостовский Мудрец (18112) 4 года назад

... и немного извращений)