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

Не очень понял что именно от тебя хотят.Но если все действия происходят в Паскаль, то задача на оператор ветвления.А вот и сама программа на всякий случай:
Program Proverka;
uses CRT;
var x:real;       
Begin             
        clrscr;               
          writeln ('Введите X');               
          readln (x);                                            
                        IF x<0 then                           
                              writeln ('Отрицательное число x=' , x:5:2)                                                Else                           
                               Begin                           
                                       IF x>0 then                               
                                             writeln ('Положительное число x=' , x:5:2)                                Else                         
                               writeln ('Вы выбрали неверное значение');                                                     End;                         
readln;   
End.

? ? ? F
0 0 0 0
0 0 1 1
0 1 0 0
0 1 1 1
1 0 0 0
1 0 1 0
1 1 0 0
1 1 1 1

Сделаем простое преобразование:

Мы получили конъюнкцию b и выражения в круглых скобках. Она ложна, если  ложно хотя бы b в этом выражении. Поищем колонку, в которой всегда стоит ноль, если ноль в колонке F. Это предпоследняя колонка, следовательно она содержит значения для b (ведь в колонке указано значение одной переменной)

? ? b F
0 0 0 0
0 0 1 1
0 1 0 0
0 1 1 1
1 0 0 0
1 0 1 0
1 1 0 0
1 1 1 1

А теперь воспользуемся истинным значением F. F истинно только если истинны одновременно и b, и выражение в скобках. А в скобках находится дизъюнкция с и инверсии a. Дизъюнкция ложна, если ложны оба её компонента, т.е. если ложно с и истинно а (из-за инверсии). Это дает нам комбинацию cabF=0110 или acbF=1010. Находим одну из этих строк: 1010 третья снизу. Следовательно, подписи колонок acbF.

a c b F
0 0 0 0
0 0 1 1
0 1 0 0
0 1 1 1
1 0 0 0
1 0 1 0
1 1 0 0
1 1 1 1