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

Информатика

Летта

8 июля, 05:49

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

Ответы (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.