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
конец
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
конец