function f (p:byte):real; var i, j : byte; sum, lsum : real; begin sum:=1;
for i:=1 to p do begin lsum:=1; for j:=1 to i do lsum:=lsum*(1 1/i); sum:=sum*lsum; end; f:=sum; end;
begin readln (n); write (f(n)); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
