Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
ovsjannikova20p01gvg
22.03.2020 09:42 •
Информатика
Дано вещественное число а и целое число n(> 0) вывести а в степени n: а в степени n=а*а*а**а(числа а перемножаются n раз).
Ответ:
лера2208
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 оценок)
Популярные вопросы: Информатика
holil070707325
08.09.2022 16:49
Найти максимальное значение в одномерном массиве(a). построить алгоритм( блок-схему) и написать программу в бейсике. )...
19Викушка
08.09.2022 16:49
Перевести двоичные числа в шестнадцатеричную систему счисления: а) 100010,011101; б) 1111000000,101; в) 1100011,11; г) 100011,111....
hahahahahaha2
22.04.2022 21:29
Чему будет равно значение переменной «a» после выполнения этого цикла? i: =3; a: =10; while (i 5) do begin a: =a+i i: =i+1; end;...
daniexalmera
22.04.2022 21:29
Какое число будет выведено на экран в результате выполнения этого цикла? i: =5; write( 7 ); while (i 6) do begin write(i); i: =i+1; end;...
тёма113435
22.04.2022 21:29
Рядом со школой растут 6 деревьев : сосна, береза, липа, тополь,ель, и клён. известно,что береза ниже тополя, а липа выше клёна, сосна ниже ели, липа ниже березы, сосна выше...
srente
05.12.2021 00:49
Написать программу в паскале. () пользователь вводит целые числа, 0 это финиш, просуммировать все числа в диапазоне от 5 до 15 включительно...
syromyatnikovа
05.12.2021 00:49
Чему будет равно значение переменной n после выполнения программы? n: =2 while (n 8) do n: =n-1...
Максек1337
05.11.2020 10:10
Найти произведение элементов одномерного массива, находящихся в диапазоне от 4 до 10. массив сгенерировать с генератора случайных чисел в диапазоне от 2 до 42. количество элементов...
aisylu0706
05.11.2020 10:10
Какая версия крмп лучше 0.3e или 0.3.7?...
NekkeR8821
01.09.2022 14:19
Составить решение на языке паскаль: у=x^2, если x =0 и у=корень из х, если х 0/...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.