Решить ! данычисла ,необходимо возвести во 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.
begin
writeln('Введи 1 число');
readln(a);
writeln('Введи 2 число');
readln(b);
writeln(sqr(sin(a)));
writeln(sqr(cos(b)));
end.