Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Умницка1
25.11.2020 18:05 •
Информатика
Составить программу возведения числа а в n степень
Показать ответ
Ответ:
Евгений060704
08.10.2020 06:47
Var num, deg: integer;
res: real;
i: byte;
begin
write ('Число: ');
readln (num);
write ('Степень: ');
readln (deg);
res := 1;
i := 0;
while i < abs(deg) do begin
res *=num;
inc(i)
end;
if deg < 0 then
res := 1 / res;
writeln (res:10:5);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sergiu21
04.04.2021 17:26
Напишите, , функцию, которая удаляет из переданной ей символьной строки все лишние пробелы, заменяя все повторяющиеся пробелы на один пробел....
эля0521
25.11.2020 22:04
Виведіть на екран числа кратні 3 від 1 до 100....
andriu12252
03.03.2021 20:59
Менің туған өлкем қазақстан тақырыбына эссе жазу барысында алгоритмді қалай қолдануға болады? алгоритмін құрып көріңдер...
sobitlogin
21.09.2021 04:53
ответьте на вопросы 1)какое поле будет ключевым для таблицымагазин(типмагазина,адрес,численностьассортимента,режимработы,числоработников)? a) тип магазина b) число работников...
Kinder2571
03.01.2022 14:08
Скорость первого автомобиля v1 км / ч, второго - v2 км / ч, расстояние между ними s км. определить расстояние между ними через t часов, если автомобили отдаляются друг от друга....
Сталкер027
22.04.2021 10:09
1-рассчитать сумму кубов всех положительных значений и их количество для функции y=3x2 + 2 cos x. составить программу для табулирования функции у на промежутке [0; 4] с шагом...
motya10432
25.10.2020 09:33
4. Составьте таблицы описания типов и форматов для всех полей баз данных «Домашняя библиотека», «Успеваемость», «Факультативы», «Школы»....
влад2314
18.08.2020 18:14
вроде легко но не могу сделать...
Andylov
12.09.2021 10:10
Дано значение целых величин х и у. Найти z=max2(x,y)+min(x,y)- min2(x,y) Как это делать в Python?...
saya8282
15.03.2023 05:26
Описать этапы жизненного цикла на примере любой программы (эл учебник, тест программа, сайт и т.д)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
res: real;
i: byte;
begin
write ('Число: ');
readln (num);
write ('Степень: ');
readln (deg);
res := 1;
i := 0;
while i < abs(deg) do begin
res *=num;
inc(i)
end;
if deg < 0 then
res := 1 / res;
writeln (res:10:5);
end.