Дано действительное число х. Вычислите его квадрат, квадратный корень, синус и косинус.

Question

Информатика

Агафон

11 ноября, 12:14

Дано действительное число х. Вычислите его квадрат, квадратный корень, синус и косинус.

+3

Ответы (1)

Знаете ответ на вопрос?

Киля · Answer 1

Var x, a, b, c, d:real;

begin

writeln ('Введите число: ') ; read (x) ;

a:=sqr (x) ;

writeln ('Квадрат этого числа = ', a) ;

b:=sqrt (x) ;

writeln ('Корень квадратный = ', b) ;

c:=cos (x) ;

d:=sin (x) ;

writeln ('Синус = ', c, ' | Косинус = ', d) ;

end.