Как в Паскале ввести
сos в 3 степени

Предыдущий
вопрос Следующий
вопрос

В Pascal нет встроенной функции для вычисления косинуса в степени, но вы можете использовать функцию cos и возвести результат в третью степень:

program CalculateCos3;
var
x, cosValue: real;
begin
// Вводим значение угла в радианах
write('Введите угол x в радианах: ');
readln(x);
// Вычисляем косинус угла
cosValue := cos(x);
// Возводим косинус в третью степень
cosValue := power(cosValue, 3);
// Выводим результат
writeln('Косинус ', x, ' в третьей степени: ', cosValue);
end.

Эта программа сначала запрашивает у пользователя значение угла в радианах, затем вычисляет косинус этого угла и возводит результат в третью степень, выводя итоговое значение.