Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Мальвина1122
14.02.2022 07:15 •
Информатика
Напишите программу, которая вводит два числа a и n вычисляет a^n. програмный код. не через "power". заранее
Показать ответ
Ответ:
арут4
16.09.2020 17:16
Function Pow(a : Integer; b : Integer) : Integer;
Begin
If b=0 then Pow:=1 else Pow:=a*Pow(a,b-1);
End;
Var A,N : Integer;
Begin
Readln(A,N);
Writeln(Pow(A,N));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
00masha000
04.06.2020 02:58
Составить программу в паскале так, чтобы он выдавал 1 22 333 4444 55555 и т.д...
Telman07
20.01.2021 18:16
Нужна помщь, если не понятен почерк, пишите в ! ...
BRICKWIH
20.03.2023 16:41
Изменение информации компьютером (9 букв)...
YanaDovgik
02.11.2020 04:24
Afamily of 17 are trying to get back to their island for christmas when disaster strikes – their ship hits a rock and will sink in 20 minutes! they have a rescue boat that fits...
Лейла1994
02.11.2020 04:24
Найдите ошибку в утверждении : из 2 разных тел быстрее разгонится то которое тянут или толкают...
hren4
02.11.2020 04:24
Рассчитайте относительную молекулярную массу (mr) следующих веществ: k2cr2o7, fes, ca3(po4)2, kcio3, sio2....
polinaandreeva9
02.11.2020 04:24
Рассказ на тему как мама кот учит своего котёнка чему-либо по окружающему миру 3 класс...
ksiuu
02.11.2020 04:24
Заполнять цифры до десяти десятков: 89,67,58,29,78,99,59,57...
Wasder1
02.11.2020 04:24
Поставьте глаголы-сказуемые в present indefinite. 1. her name was ann. 2. she lived in chita. 3. she will understand the meaning. 4. will she go to school? 5. she likes ice cream....
Aleksandra2320323
02.11.2020 04:24
Пож выразить в килограмах 8т= 19ц= 6ц= 12т 50кг= вычислите 14т-8ц=...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Begin
If b=0 then Pow:=1 else Pow:=a*Pow(a,b-1);
End;
Var A,N : Integer;
Begin
Readln(A,N);
Writeln(Pow(A,N));
end.