Задание:
Дано действительное число х. Вычислите его квадрат, квадратный корень, синус икосинус.
Решение:
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.
Знаете другой ответ?