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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.