Question

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

Answer 1

Var a, b:real;

begin
   writeln('Введи 1 число');
   readln(a);
   writeln('Введи 2 число');
   readln(b);
   writeln(sqr(sin(a)));
   writeln(sqr(cos(b)));
end.