Помогите решить задачу!!! Данычисла ,необходимо возвести во 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:= ...
Помогите решить задачу!!! Данычисла ,необходимо возвести во 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.
Гость
Ответ(ы) на вопрос:
Гостьvar a, b:real;
begin
writeln('Введи 1 число');
readln(a);
writeln('Введи 2 число');
readln(b);
writeln(sqr(sin(a)));
writeln(sqr(cos(b)));
end.
Не нашли ответ?
Похожие вопросы