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

Question

Информатика

Ванюта

11 августа, 21:34

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

+5

Ответы (1)

Знаешь ответ?

Гера · Answer 1

Var a, b:real;

begin

writeln ('Введи 1 число');

readln (a);

writeln ('Введи 2 число');

readln (b);

writeln (sqr (sin (a)));

writeln (sqr (cos (b)));

end.