Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
liza1460
15.12.2022 11:12 •
Информатика
Дано вещественное число а и целое число n(> 0) вывести а в степени n: а в степени n=а*а*а**а(числа а перемножаются n раз).
Ответ:
о23072005
26.05.2020 01:23
var a,k:real;
n:integer;
begin
readln(a,n);
k:=a;
while n<>1 do begin
n:=n-1;
a:=a*k;
end;
writeln(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
yuratihonov
10.10.2021 19:24
Каков будет результат вычисления в ячейке С2, если в нее скопировать формулу из ячейки С1?...
mashaguglik
21.01.2020 22:29
решить задачу на языке Pascal ABC (прикрепленный файл)...
двоишник228333
12.04.2021 20:00
Заменить все четные элементы на их квадраты, а нечетные удвоить...
sabina300
12.04.2021 20:00
Для записи текста используется 32-х символьный алфавит, на каждой странице 40 строк 50 символов в строке. какой объём информации содержит 7 страниц?...
дывавып
27.03.2021 23:11
Сочинение мой любимый предмет информатика...
Rovz
11.06.2020 00:16
Чего нового я узнал из курса информатики в 7 классе...
Denis223423
15.07.2020 20:03
Какое количество информации при игре в морской бой на поле размером 8х8 клеток получит второй игрок после хода первого игрока. (учитель придумал )...
16Milochka16
15.07.2020 20:03
Сколько бит составляет сообщение, содержащее 0,25 кбайт?...
topgaimer
18.11.2021 00:48
Составить программу, рассчитывающую гипотенузу прямоугольного треугольника по катетам введённым с клавиатуры....
olzhabekzhazira
06.05.2021 00:27
Раскройте скобки.поставьте глагол в нужную форму(present,past,future simple) a)he(learn) english every day. b)our teacher (ask) us next week. c)usually we (not eat) at 8 in the evening....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var a,k:real;
n:integer;
begin
readln(a,n);
k:=a;
while n<>1 do begin
n:=n-1;
a:=a*k;
end;
writeln(a);
end.