Написать программы к следующим Заданием, пользуясь примерами ниже.1. Дано натуральное число n. Вычислить 1*2*3*…*n.2. Вычислить: sin x+sin 2x+sin 3x +….(n слагаемых).

Дано натуральное число n. Вычислить 1*2*3*…*n.

var n,i,p: integer;

begin

p:=1;

writeln ('Введите число');

readln n;

for i:=1 to n do

p:=p*i;

writeln('p=',p);

end.

Вычислить: sin x+sin 2x+sin 3x +….(n слагаемых)

Var

  n,i,x:integer;

  S:real;

Begin

Write('n = ');

ReadLn(n);

Write('x = ');

ReadLn(x);

S:=0;

For i:= 1 to n do

   S:=S+Sin(i*x);

WriteLn('S = ',S)

End.

паскаль