Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
annastiebiekova
11.05.2022 14:38 •
Информатика
Используя рекурсивную функцию вычислить 3^(9) три девятой степени только с полным кодом.
Показать ответ
Ответ:
igor2312
07.10.2020 17:20
{
написано на PascalABC.NET но должно работать во всех Паскалях.
Скриншот результата в приложении
}
PROGRAM power_recursive;
var
n,p:word;
function power(num:word; pow:byte):word;
begin
if (pow<2) then
power:=num
else
power:=num*power(num, pow-1);
end;
BEGIN
write('Введите основание степени : '); readln(n);
write('Введите показатель степени >0 : '); readln(p);
writeln( power(n,p) )
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
саша4287
27.12.2021 03:44
Есть два сосуда, объемом 14 л и 35 л и неограниченное количество воды в кране. можно наполнять водой из крана любой сосуд полностью, переливать воду из сосуда в раковину или в другой...
Евус1111
30.03.2023 04:35
Тот кто и правильно 110 600000 мегабайт 13 байт 1000 байт 550000 байт 2000000000 байт и ответ под цифрами 1.меньше 1/1024 мегабайта 2.больше 512 килобайт, но меньше мегабайта 3.больше...
dzhoxa
30.03.2023 04:35
Не понимаю как решать реферат, набранный на компьютере, содержит 16 страниц текста и помимо этого ещё 32 рисунка. на каждой текстовой странице 50 строк, в каждой строке 64 символа....
Karolina777000
30.03.2023 04:35
Кто умеет делать красиво приглашение на концерт , нужно...
varvaranepomnas
27.02.2020 22:15
Решить примеры информатика 9 класс...
Shtager1501
17.03.2021 10:17
Дано логическое выражение расставить порядок выполнения действий и вычисли значение выражения если а=1 в=0 с = 1 д = 1 ; не а или ( не в и с или не а и не д )...
Эвелина123412
30.01.2020 10:26
Язык c++вычислить сумму ряда с погрешностью e=0,0001 в окрестности точки ноль, т.е. при (функция во вложении)...
Uprava
22.10.2022 01:41
С++ описать процедуру addrightdigit(d,k), добавляющую к целому положит. числу к справа цифру d (d – входной параметр целого типа, лежащий в диапозоне 0-9, к – параметр целого типа,...
mayer3
02.11.2021 21:38
Каковы проблемы защиты авторских прав в сети интернет в настоящее время...
shamalava210505
09.04.2020 14:43
Напиши программу в которой будет использоваться фон и на этом фоне нарисован дом.(вроде надо в путоне,но не точно) 9 класс...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
написано на PascalABC.NET но должно работать во всех Паскалях.
Скриншот результата в приложении
}
PROGRAM power_recursive;
var
n,p:word;
function power(num:word; pow:byte):word;
begin
if (pow<2) then
power:=num
else
power:=num*power(num, pow-1);
end;
BEGIN
write('Введите основание степени : '); readln(n);
write('Введите показатель степени >0 : '); readln(p);
writeln( power(n,p) )
END.