Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
lenadanilova77
22.06.2021 03:37 •
Информатика
Дано целое число а и натуральное число n. найдите a^n. программу напишите в паскале через while или repeat.
Показать ответ
Ответ:
fhdsjkfalhd
01.10.2020 19:45
Program Program1;
var a, n, i, result: integer;
begin
result := 1;
write('Введите значение A: ');
readln(a);
write('Введите значение N: ');
readln(n);
while (n > i) do
begin
result := result * a;
i := i + 1;
end;
writeln('ответ: ', result);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Mrrezed
12.12.2021 02:52
буду очень признателен)...
Gaka4112009
30.08.2020 13:17
решить лабраторную работу 1. Прочитати теоретичний матеріал. 2. Виконати лабораторну роботу яка додана нижче (можно виконувати Microsoft Excel або OpenOffice Calc). 3. Додати створений...
gabdrahmanovaafyun
02.11.2020 13:26
ЛЕГКАЯ ИНФА Число 1010011 в восьмиразрядном представлении имеет вид: 2010011 01010011 100010011 010011 Запиши развёрнутую запись числа 0,163 для дробной части числа. ответ: 0,163...
SuperMax2003rus
30.07.2022 06:29
Подскажите, как правильно решить. Я когда ввожу данные в програму Паскаль, мне высвечивается, что в 17 строке ошибка и я не могу дальше понять, что делать. Ввести номер месяца...
Germionochka
20.11.2020 23:29
За ответ от Можете написать код для программы С++, для этого задания? Что бы в конце работала программа по данному заданию. Написать программу в C++, которая формирует двумерную...
iratupikp00q9c
20.11.2020 23:29
Чему будет равна величина b после выполнения фрагмента программы? val( 48 ,b,er); (ввести только ответ. например: слово или число) *...
sasha228111228
24.04.2023 05:17
Чи міг еукаріотичний джгутик утворитися зі джгутика давньої бактерії або археї?...
merifai
24.04.2023 05:17
Укажіть на малюнку стрілками (біля яких поставте відповідні цифри) розташування: стій- ких, малорухомих, вирівняних ділянок земної кори, де більш активні зовнішні процеси(цифра...
Ionа1
25.02.2021 18:23
Определите события, которые характеризуют буржуазно- демократические революции: 1. К власти приходит народ 2. Основные участники революции - рабочие и крестьяне 3. К власти приходит...
zaharuch
25.02.2021 18:23
Прочитайте роман «Капитанская дочка». Запишите результаты своих наблюдений над текстом произведения в своеобразный «читательский блокнот»....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a, n, i, result: integer;
begin
result := 1;
write('Введите значение A: ');
readln(a);
write('Введите значение N: ');
readln(n);
while (n > i) do
begin
result := result * a;
i := i + 1;
end;
writeln('ответ: ', result);
end.