Question

помогите пж, надо на языке Паскаль написать

Answer 1

var

   S, S1   : real;

   N       : integer;

   

begin

   readln(N);

   for var i := 1 to N do begin

       S1 += sin(i);

       S += 1/S1;

   end;

   writeln(S);

end.

протестиовано в PascalABC.Net в других версиях паскаля синтаксис может незначительно отличаться.

Answer 2

Смотрите картинки и соотв. им файлы *.pas Написаны в PascalABC.NET

dd0888efa392bebde81d7e6c333b3028.pas

368801bb0761ad8f676cd65f36ae3289.pas