Помогите решить задачу!!! Данычисла ,необходимо возвести во 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.

1

Ответы и объяснения

2014-02-21T13:48:05+04:00
Var a, b:real;

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