Verified answer

Ответ:

program prog_32608442;

var

fact: longint;

s: real;

i: byte;

begin

fact:=1;

for i:=1 to 7 do fact:=fact*i;

s:=7*ln(2)+ln(fact);

   writeln('s=',s);

end.

Pascal online compiler

Объяснение:

S=ln 2+ ln 4+ ln 6+ln 8+ln 10

+ln12+ln14​=ln(2*4*6*8*10*12*14)=ln(2^7*ln(7!)=ln(2^7)+ln(7!)=7*ln(2)+ln(7!)

Блок-схема для вычисления 7*ln(2)+ln(7!) довольно простая.

начало

j=1

начало цикла i от 1 до n

j=j*i

конец цикла

s=7*ln(2)+ln(j)

вывод s

конец