Паскаль.Для заданного натурального числа n рассчитать сумму: а)cosx+cos x2 +cos...

Question

Паскаль.Для заданного натурального числа n рассчитать сумму:

а)cosx+cos x2 +cos x2+....+cosxn
б)sin1+sin1,1+sin1,2+...+sin2
в)1!+2!!+3!+...+n!

Answer 1

1)
  var
 n,i:Integer;
 sum:Real;
Begin
 Read(n);
 for i:=1 to n do
  sum:=sum+cos(i);
 Writeln(sum);
end.

Comments

В Pascal напиши к задаче подробные комментарии.