Question

Пункты г-д. Паскаль

Answer 1

1)

Var
   n:integer;
   S,Sz:real;
Begin
Write('n = ');
ReadLn(n);
S:=0;
Sz:=0;
For n:= 1 to n do
    Begin
    Sz:=Sz+Cos(n);
    S:=S+n/Sz;
    End;
WriteLn('S = ',S);
End.



2)

Var
   n:integer;
   S,P,Sz:real;
Begin
Write('n = ');
ReadLn(n);
S:=0;
Sz:=0;
P:=1;
For n:= 1 to n do
    Begin
    P:=P*Sin(n);
    Sz:=Sz+Tan(n);
    S:=S+P/Sz;
    End;
WriteLn('S = ',S);
End.