Question

Составить программу для вычисления величины S по  легкой формуле

ВНИМАНИЕ!!!! помогите дам 40 баллов!!!!!!!!!!!!!!!!!

Answer 1

const Ei=2.71
i:integer;
S0, S1, S2, S3: real;
begin
S0:=0;
for i := 1 to 30 do
begin
S0 := S0+exp( 2 * ln(cos(i)));
end;

S1:=0;
for i := 1 to 10 do 
begin 
S1 := S1*sin(exp( 2 * ln(i))); 
end; 

S2:=exp( S0 * ln(Ei));
S3:=exp( S1 * ln(Ei));

writeln('S= ',S2+S3);
end.

Answer 2

почему то переносится на другую строку инструкции