Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
yaarichek
07.01.2020 23:35 •
Информатика
Напишите функцию, которая позволяет вычислить корень любой натуральной степени. само число и степень корня – параметры функции. , надо!
Показать ответ
Ответ:
asemk85
14.08.2020 16:15
Function root(m,n :integer) :real;
begin
root := exp(ln(m)/n)
end;
// корень n степени из числа m
0,0
(0 оценок)
Ответ:
marina0510251
14.08.2020 16:15
{ ВНИМАНИЕ: Требует "uses Math;" и
FreePascal / Pascal ABC для Power() }
function NthRoot(x: real; y: integer): real;
begin
NthRoot := Power( x, (1 / y) );
end;
begin
writeln(NthRoot(9, 2):0:1);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
LopsterId1236543
24.06.2021 03:40
Объясните ошибки в следующих записях на языке Паскаль, а также предложите, как можно исправить запись выражения №3? 1) tan(2* x +30 3.14) 2) (false / 2) /\ not(true) 3) true or...
zarizatamara00
02.07.2020 23:56
Получите из слова ТЕСТИРОВАНИЕ слово НИВА . Для этого используй команды: copy, delete, insert и операция сложения строк....
SachaNabok
25.03.2023 07:30
не понимаю информатику...
dianavoronina4545
05.07.2020 16:37
Впаскале abc одномерный массив из 5 чисел,нужно вывести на экран эти элементы но передвинутые влево на одно место место,а тк первый элемент мы не можем подвинуть еще левее,то...
Tan13Nanika
12.01.2021 07:39
Как нарисовать эту картинку в паскале?...
AmiKot1105
19.04.2022 22:53
Program min; uses crt; var a,b,c:integer; begin read(a,b,c); _if_ (a else if b _else___ writeln(c); end. по этим данным нужно сотавить таблицу...
Кристинанана
10.05.2020 13:38
На рисунке 108 приведен кроссворд со словами. Выполните обрат-ную задачу: напишите определения к данным словам (по горизонталии вертикали)....
ruslanamotul1510
10.05.2020 13:38
На рисунке показаны результаты выполнения команды СМЕСТИТЬСЯ В ТОЧКУ (x, y) при различных положениях пера до этой команды. Найдите значение x и y...
dianka2712
23.10.2021 12:54
Отгадайте ребус заранее...
арина1494
23.04.2020 09:21
Какое наибольшее число одинаковых наборов можно составить из 27 яблок и 36 груш, если должны быть использованы все эти фрукты?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
root := exp(ln(m)/n)
end;
// корень n степени из числа m
FreePascal / Pascal ABC для Power() }
function NthRoot(x: real; y: integer): real;
begin
NthRoot := Power( x, (1 / y) );
end;
begin
writeln(NthRoot(9, 2):0:1);
end.