Решить ! данычисла ,необходимо возвести во 2ую степень sin 1 числа и cos 2 числа.вот так как то 1 2 3 4 5 6 7 8 9 10 var i, n: integer; p : real; begin write('введите n: '); readln(n); p: = 1; for i: = 1 to n do p: = p*2; writeln('результат = ', р); end.
